TPTP Problem File: COM208^1.p
View Solutions
- Solve Problem
%------------------------------------------------------------------------------
% File : COM208^1 : TPTP v8.2.0. Released v7.0.0.
% Domain : Computing Theory
% Problem : Parallel extension to grammars and languages 122
% Version : [Bla16] axioms : Especial.
% English :
% Refs : [BH+14] Blanchette et al. (2014), Truly Modular (Co)datatypes
% : [RB15] Reynolds & Blanchette (2015), A Decision Procedure for
% : [Bla16] Blanchette (2016), Email to Geoff Sutcliffe
% Source : [Bla16]
% Names : parallel__122.p [Bla16]
% Status : Theorem
% Rating : 0.33 v8.1.0, 0.25 v7.5.0, 0.33 v7.3.0, 0.00 v7.2.0, 0.25 v7.1.0
% Syntax : Number of formulae : 333 ( 136 unt; 52 typ; 0 def)
% Number of atoms : 503 ( 320 equ; 0 cnn)
% Maximal formula atoms : 6 ( 1 avg)
% Number of connectives : 4593 ( 51 ~; 5 |; 17 &;4320 @)
% ( 0 <=>; 200 =>; 0 <=; 0 <~>)
% Maximal formula depth : 28 ( 8 avg)
% Number of types : 3 ( 2 usr)
% Number of type conns : 389 ( 389 >; 0 *; 0 +; 0 <<)
% Number of symbols : 53 ( 50 usr; 8 con; 0-7 aty)
% Number of variables : 1432 ( 47 ^;1291 !; 17 ?;1432 :)
% ( 77 !>; 0 ?*; 0 @-; 0 @+)
% SPC : TH1_THM_EQU_NAR
% Comments : This file was generated by Isabelle (most likely Sledgehammer)
% 2016-07-13 14:39:15.800
%------------------------------------------------------------------------------
%----Could-be-implicit typings (6)
thf(ty_t_Product__Type_Oprod,type,
product_prod: $tType > $tType > $tType ).
thf(ty_t_Sum__Type_Osum,type,
sum_sum: $tType > $tType > $tType ).
thf(ty_t_DTree_Odtree,type,
dtree: $tType ).
thf(ty_t_Set_Oset,type,
set: $tType > $tType ).
thf(ty_t_DTree_OT,type,
t: $tType ).
thf(ty_t_itself,type,
itself: $tType > $tType ).
%----Explicit typings (46)
thf(sy_cl_Lattices_Obounded__lattice,type,
bounded_lattice:
!>[A: $tType] : ( ( itself @ A ) > $o ) ).
thf(sy_cl_HOL_Otype,type,
type:
!>[A: $tType] : ( ( itself @ A ) > $o ) ).
thf(sy_cl_Lattices_Olattice,type,
lattice:
!>[A: $tType] : ( ( itself @ A ) > $o ) ).
thf(sy_cl_Lattices_Odistrib__lattice,type,
distrib_lattice:
!>[A: $tType] : ( ( itself @ A ) > $o ) ).
thf(sy_cl_Lattices_Osemilattice__inf,type,
semilattice_inf:
!>[A: $tType] : ( ( itself @ A ) > $o ) ).
thf(sy_cl_Lattices_Osemilattice__sup,type,
semilattice_sup:
!>[A: $tType] : ( ( itself @ A ) > $o ) ).
thf(sy_cl_Lattices_Obounded__lattice__top,type,
bounded_lattice_top:
!>[A: $tType] : ( ( itself @ A ) > $o ) ).
thf(sy_cl_Lattices_Obounded__semilattice__inf__top,type,
bounde1561333602nf_top:
!>[A: $tType] : ( ( itself @ A ) > $o ) ).
thf(sy_c_BNF__Def_Oconvol,type,
bNF_convol:
!>[A: $tType,B: $tType,C: $tType] : ( ( A > B ) > ( A > C ) > A > ( product_prod @ B @ C ) ) ).
thf(sy_c_BNF__Greatest__Fixpoint_Oimage2,type,
bNF_Greatest_image2:
!>[C: $tType,A: $tType,B: $tType] : ( ( set @ C ) > ( C > A ) > ( C > B ) > ( set @ ( product_prod @ A @ B ) ) ) ).
thf(sy_c_DTree_Ocont,type,
cont: dtree > ( set @ ( sum_sum @ t @ dtree ) ) ).
thf(sy_c_Fun_Ocomp,type,
comp:
!>[B: $tType,C: $tType,A: $tType] : ( ( B > C ) > ( A > B ) > A > C ) ).
thf(sy_c_If,type,
if:
!>[A: $tType] : ( $o > A > A > A ) ).
thf(sy_c_Lattices_Oinf__class_Oinf,type,
inf_inf:
!>[A: $tType] : ( A > A > A ) ).
thf(sy_c_Lattices_Osup__class_Osup,type,
sup_sup:
!>[A: $tType] : ( A > A > A ) ).
thf(sy_c_Orderings_Otop__class_Otop,type,
top_top:
!>[A: $tType] : A ).
thf(sy_c_Parallel__Mirabelle__hykpkoupgu_Opar,type,
parall1899940088le_par: ( product_prod @ dtree @ dtree ) > dtree ).
thf(sy_c_Product__Type_OPair,type,
product_Pair:
!>[A: $tType,B: $tType] : ( A > B > ( product_prod @ A @ B ) ) ).
thf(sy_c_Product__Type_Oapsnd,type,
product_apsnd:
!>[B: $tType,C: $tType,A: $tType] : ( ( B > C ) > ( product_prod @ A @ B ) > ( product_prod @ A @ C ) ) ).
thf(sy_c_Product__Type_Ocurry,type,
product_curry:
!>[A: $tType,B: $tType,C: $tType] : ( ( ( product_prod @ A @ B ) > C ) > A > B > C ) ).
thf(sy_c_Product__Type_Ointernal__case__prod,type,
produc2004651681e_prod:
!>[A: $tType,B: $tType,C: $tType] : ( ( A > B > C ) > ( product_prod @ A @ B ) > C ) ).
thf(sy_c_Product__Type_Omap__prod,type,
product_map_prod:
!>[A: $tType,C: $tType,B: $tType,D: $tType] : ( ( A > C ) > ( B > D ) > ( product_prod @ A @ B ) > ( product_prod @ C @ D ) ) ).
thf(sy_c_Product__Type_Oold_Oprod_Orec__prod,type,
product_rec_prod:
!>[A: $tType,B: $tType,T: $tType] : ( ( A > B > T ) > ( product_prod @ A @ B ) > T ) ).
thf(sy_c_Product__Type_Oprod_Ocase__prod,type,
product_case_prod:
!>[A: $tType,B: $tType,C: $tType] : ( ( A > B > C ) > ( product_prod @ A @ B ) > C ) ).
thf(sy_c_Product__Type_Oprod_Osnd,type,
product_snd:
!>[A: $tType,B: $tType] : ( ( product_prod @ A @ B ) > B ) ).
thf(sy_c_Product__Type_Oprod_Oswap,type,
product_swap:
!>[A: $tType,B: $tType] : ( ( product_prod @ A @ B ) > ( product_prod @ B @ A ) ) ).
thf(sy_c_Product__Type_Oscomp,type,
product_scomp:
!>[A: $tType,B: $tType,C: $tType,D: $tType] : ( ( A > ( product_prod @ B @ C ) ) > ( B > C > D ) > A > D ) ).
thf(sy_c_Pure_Otype,type,
type2:
!>[A: $tType] : ( itself @ A ) ).
thf(sy_c_Set_OCollect,type,
collect:
!>[A: $tType] : ( ( A > $o ) > ( set @ A ) ) ).
thf(sy_c_Set_Oimage,type,
image:
!>[A: $tType,B: $tType] : ( ( A > B ) > ( set @ A ) > ( set @ B ) ) ).
thf(sy_c_Set_Ovimage,type,
vimage:
!>[A: $tType,B: $tType] : ( ( A > B ) > ( set @ B ) > ( set @ A ) ) ).
thf(sy_c_Sum__Type_OInl,type,
sum_Inl:
!>[A: $tType,B: $tType] : ( A > ( sum_sum @ A @ B ) ) ).
thf(sy_c_Sum__Type_OInr,type,
sum_Inr:
!>[B: $tType,A: $tType] : ( B > ( sum_sum @ A @ B ) ) ).
thf(sy_c_Sum__Type_OPlus,type,
sum_Plus:
!>[A: $tType,B: $tType] : ( ( set @ A ) > ( set @ B ) > ( set @ ( sum_sum @ A @ B ) ) ) ).
thf(sy_c_Sum__Type_OSuml,type,
sum_Suml:
!>[A: $tType,C: $tType,B: $tType] : ( ( A > C ) > ( sum_sum @ A @ B ) > C ) ).
thf(sy_c_Sum__Type_OSumr,type,
sum_Sumr:
!>[B: $tType,C: $tType,A: $tType] : ( ( B > C ) > ( sum_sum @ A @ B ) > C ) ).
thf(sy_c_Sum__Type_Oold_Osum_Orec__sum,type,
sum_rec_sum:
!>[A: $tType,T: $tType,B: $tType] : ( ( A > T ) > ( B > T ) > ( sum_sum @ A @ B ) > T ) ).
thf(sy_c_Sum__Type_Osum_Ocase__sum,type,
sum_case_sum:
!>[A: $tType,C: $tType,B: $tType] : ( ( A > C ) > ( B > C ) > ( sum_sum @ A @ B ) > C ) ).
thf(sy_c_Typedef_Otype__definition,type,
type_definition:
!>[B: $tType,A: $tType] : ( ( B > A ) > ( A > B ) > ( set @ A ) > $o ) ).
thf(sy_c_member,type,
member:
!>[A: $tType] : ( A > ( set @ A ) > $o ) ).
thf(sy_v_n____,type,
n: t ).
thf(sy_v_tr1a____,type,
tr1a: dtree ).
thf(sy_v_tr2a____,type,
tr2a: dtree ).
thf(sy_v_tr3a____,type,
tr3a: dtree ).
thf(sy_v_trA____,type,
trA: dtree ).
thf(sy_v_trB____,type,
trB: dtree ).
%----Relevant facts (256)
thf(fact_0__092_060open_062_092_060exists_062tr1_Atr2_Atr3_O_AtrA_A_061_A_Itr1_A_092_060parallel_062_Atr2_J_A_092_060parallel_062_Atr3_A_092_060and_062_AtrB_A_061_Atr1_A_092_060parallel_062_Atr2_A_092_060parallel_062_Atr3_092_060close_062,axiom,
? [Tr1: dtree,Tr2: dtree,Tr3: dtree] :
( ( trA
= ( parall1899940088le_par @ ( product_Pair @ dtree @ dtree @ ( parall1899940088le_par @ ( product_Pair @ dtree @ dtree @ Tr1 @ Tr2 ) ) @ Tr3 ) ) )
& ( trB
= ( parall1899940088le_par @ ( product_Pair @ dtree @ dtree @ Tr1 @ ( parall1899940088le_par @ ( product_Pair @ dtree @ dtree @ Tr2 @ Tr3 ) ) ) ) ) ) ).
% \<open>\<exists>tr1 tr2 tr3. trA = (tr1 \<parallel> tr2) \<parallel> tr3 \<and> trB = tr1 \<parallel> tr2 \<parallel> tr3\<close>
thf(fact_1__092_060open_062Inl_An_A_092_060in_062_Acont_A_I_Itr1_A_092_060parallel_062_Atr2_J_A_092_060parallel_062_Atr3_J_092_060close_062,axiom,
member @ ( sum_sum @ t @ dtree ) @ ( sum_Inl @ t @ dtree @ n ) @ ( cont @ ( parall1899940088le_par @ ( product_Pair @ dtree @ dtree @ ( parall1899940088le_par @ ( product_Pair @ dtree @ dtree @ tr1a @ tr2a ) ) @ tr3a ) ) ) ).
% \<open>Inl n \<in> cont ((tr1 \<parallel> tr2) \<parallel> tr3)\<close>
thf(fact_2_par__com,axiom,
! [Tr12: dtree,Tr22: dtree] :
( ( parall1899940088le_par @ ( product_Pair @ dtree @ dtree @ Tr12 @ Tr22 ) )
= ( parall1899940088le_par @ ( product_Pair @ dtree @ dtree @ Tr22 @ Tr12 ) ) ) ).
% par_com
thf(fact_3_par__r_Ocases,axiom,
! [X: product_prod @ dtree @ dtree] :
~ ! [Tr1: dtree,Tr2: dtree] :
( X
!= ( product_Pair @ dtree @ dtree @ Tr1 @ Tr2 ) ) ).
% par_r.cases
thf(fact_4_par__r_Oinduct,axiom,
! [P: ( product_prod @ dtree @ dtree ) > $o,A0: product_prod @ dtree @ dtree] :
( ! [Tr1: dtree,Tr2: dtree] : ( P @ ( product_Pair @ dtree @ dtree @ Tr1 @ Tr2 ) )
=> ( P @ A0 ) ) ).
% par_r.induct
thf(fact_5_Inl__in__cont__par,axiom,
! [T2: t,Tr12: dtree,Tr22: dtree] :
( ( member @ ( sum_sum @ t @ dtree ) @ ( sum_Inl @ t @ dtree @ T2 ) @ ( cont @ ( parall1899940088le_par @ ( product_Pair @ dtree @ dtree @ Tr12 @ Tr22 ) ) ) )
= ( ( member @ ( sum_sum @ t @ dtree ) @ ( sum_Inl @ t @ dtree @ T2 ) @ ( cont @ Tr12 ) )
| ( member @ ( sum_sum @ t @ dtree ) @ ( sum_Inl @ t @ dtree @ T2 ) @ ( cont @ Tr22 ) ) ) ) ).
% Inl_in_cont_par
thf(fact_6_sum_Oinject_I1_J,axiom,
! [B: $tType,A: $tType,X1: A,Y1: A] :
( ( ( sum_Inl @ A @ B @ X1 )
= ( sum_Inl @ A @ B @ Y1 ) )
= ( X1 = Y1 ) ) ).
% sum.inject(1)
thf(fact_7_old_Osum_Oinject_I1_J,axiom,
! [B: $tType,A: $tType,A2: A,A3: A] :
( ( ( sum_Inl @ A @ B @ A2 )
= ( sum_Inl @ A @ B @ A3 ) )
= ( A2 = A3 ) ) ).
% old.sum.inject(1)
thf(fact_8_vimageI,axiom,
! [B: $tType,A: $tType,F: B > A,A2: B,B2: A,B3: set @ A] :
( ( ( F @ A2 )
= B2 )
=> ( ( member @ A @ B2 @ B3 )
=> ( member @ B @ A2 @ ( vimage @ B @ A @ F @ B3 ) ) ) ) ).
% vimageI
thf(fact_9_vimage__eq,axiom,
! [A: $tType,B: $tType,A2: A,F: A > B,B3: set @ B] :
( ( member @ A @ A2 @ ( vimage @ A @ B @ F @ B3 ) )
= ( member @ B @ ( F @ A2 ) @ B3 ) ) ).
% vimage_eq
thf(fact_10_prod_Oinject,axiom,
! [A: $tType,B: $tType,X1: A,X2: B,Y1: A,Y2: B] :
( ( ( product_Pair @ A @ B @ X1 @ X2 )
= ( product_Pair @ A @ B @ Y1 @ Y2 ) )
= ( ( X1 = Y1 )
& ( X2 = Y2 ) ) ) ).
% prod.inject
thf(fact_11_old_Oprod_Oinject,axiom,
! [A: $tType,B: $tType,A2: A,B2: B,A3: A,B4: B] :
( ( ( product_Pair @ A @ B @ A2 @ B2 )
= ( product_Pair @ A @ B @ A3 @ B4 ) )
= ( ( A2 = A3 )
& ( B2 = B4 ) ) ) ).
% old.prod.inject
thf(fact_12_Inl__cont__par,axiom,
! [Tr12: dtree,Tr22: dtree] :
( ( vimage @ t @ ( sum_sum @ t @ dtree ) @ ( sum_Inl @ t @ dtree ) @ ( cont @ ( parall1899940088le_par @ ( product_Pair @ dtree @ dtree @ Tr12 @ Tr22 ) ) ) )
= ( vimage @ t @ ( sum_sum @ t @ dtree ) @ ( sum_Inl @ t @ dtree ) @ ( sup_sup @ ( set @ ( sum_sum @ t @ dtree ) ) @ ( cont @ Tr12 ) @ ( cont @ Tr22 ) ) ) ) ).
% Inl_cont_par
thf(fact_13_Inl__inject,axiom,
! [B: $tType,A: $tType,X: A,Y: A] :
( ( ( sum_Inl @ A @ B @ X )
= ( sum_Inl @ A @ B @ Y ) )
=> ( X = Y ) ) ).
% Inl_inject
thf(fact_14_vimageD,axiom,
! [A: $tType,B: $tType,A2: A,F: A > B,A4: set @ B] :
( ( member @ A @ A2 @ ( vimage @ A @ B @ F @ A4 ) )
=> ( member @ B @ ( F @ A2 ) @ A4 ) ) ).
% vimageD
thf(fact_15_vimageE,axiom,
! [A: $tType,B: $tType,A2: A,F: A > B,B3: set @ B] :
( ( member @ A @ A2 @ ( vimage @ A @ B @ F @ B3 ) )
=> ( member @ B @ ( F @ A2 ) @ B3 ) ) ).
% vimageE
thf(fact_16_vimageI2,axiom,
! [B: $tType,A: $tType,F: B > A,A2: B,A4: set @ A] :
( ( member @ A @ ( F @ A2 ) @ A4 )
=> ( member @ B @ A2 @ ( vimage @ B @ A @ F @ A4 ) ) ) ).
% vimageI2
thf(fact_17_vimage__Collect,axiom,
! [B: $tType,A: $tType,P: B > $o,F: A > B,Q: A > $o] :
( ! [X3: A] :
( ( P @ ( F @ X3 ) )
= ( Q @ X3 ) )
=> ( ( vimage @ A @ B @ F @ ( collect @ B @ P ) )
= ( collect @ A @ Q ) ) ) ).
% vimage_Collect
thf(fact_18_UnCI,axiom,
! [A: $tType,C2: A,B3: set @ A,A4: set @ A] :
( ( ~ ( member @ A @ C2 @ B3 )
=> ( member @ A @ C2 @ A4 ) )
=> ( member @ A @ C2 @ ( sup_sup @ ( set @ A ) @ A4 @ B3 ) ) ) ).
% UnCI
thf(fact_19_Un__iff,axiom,
! [A: $tType,C2: A,A4: set @ A,B3: set @ A] :
( ( member @ A @ C2 @ ( sup_sup @ ( set @ A ) @ A4 @ B3 ) )
= ( ( member @ A @ C2 @ A4 )
| ( member @ A @ C2 @ B3 ) ) ) ).
% Un_iff
thf(fact_20_vimage__Un,axiom,
! [A: $tType,B: $tType,F: A > B,A4: set @ B,B3: set @ B] :
( ( vimage @ A @ B @ F @ ( sup_sup @ ( set @ B ) @ A4 @ B3 ) )
= ( sup_sup @ ( set @ A ) @ ( vimage @ A @ B @ F @ A4 ) @ ( vimage @ A @ B @ F @ B3 ) ) ) ).
% vimage_Un
thf(fact_21_UnE,axiom,
! [A: $tType,C2: A,A4: set @ A,B3: set @ A] :
( ( member @ A @ C2 @ ( sup_sup @ ( set @ A ) @ A4 @ B3 ) )
=> ( ~ ( member @ A @ C2 @ A4 )
=> ( member @ A @ C2 @ B3 ) ) ) ).
% UnE
thf(fact_22_UnI1,axiom,
! [A: $tType,C2: A,A4: set @ A,B3: set @ A] :
( ( member @ A @ C2 @ A4 )
=> ( member @ A @ C2 @ ( sup_sup @ ( set @ A ) @ A4 @ B3 ) ) ) ).
% UnI1
thf(fact_23_UnI2,axiom,
! [A: $tType,C2: A,B3: set @ A,A4: set @ A] :
( ( member @ A @ C2 @ B3 )
=> ( member @ A @ C2 @ ( sup_sup @ ( set @ A ) @ A4 @ B3 ) ) ) ).
% UnI2
thf(fact_24_bex__Un,axiom,
! [A: $tType,A4: set @ A,B3: set @ A,P: A > $o] :
( ( ? [X4: A] :
( ( member @ A @ X4 @ ( sup_sup @ ( set @ A ) @ A4 @ B3 ) )
& ( P @ X4 ) ) )
= ( ? [X4: A] :
( ( member @ A @ X4 @ A4 )
& ( P @ X4 ) )
| ? [X4: A] :
( ( member @ A @ X4 @ B3 )
& ( P @ X4 ) ) ) ) ).
% bex_Un
thf(fact_25_ball__Un,axiom,
! [A: $tType,A4: set @ A,B3: set @ A,P: A > $o] :
( ( ! [X4: A] :
( ( member @ A @ X4 @ ( sup_sup @ ( set @ A ) @ A4 @ B3 ) )
=> ( P @ X4 ) ) )
= ( ! [X4: A] :
( ( member @ A @ X4 @ A4 )
=> ( P @ X4 ) )
& ! [X4: A] :
( ( member @ A @ X4 @ B3 )
=> ( P @ X4 ) ) ) ) ).
% ball_Un
thf(fact_26_Un__assoc,axiom,
! [A: $tType,A4: set @ A,B3: set @ A,C3: set @ A] :
( ( sup_sup @ ( set @ A ) @ ( sup_sup @ ( set @ A ) @ A4 @ B3 ) @ C3 )
= ( sup_sup @ ( set @ A ) @ A4 @ ( sup_sup @ ( set @ A ) @ B3 @ C3 ) ) ) ).
% Un_assoc
thf(fact_27_Un__absorb,axiom,
! [A: $tType,A4: set @ A] :
( ( sup_sup @ ( set @ A ) @ A4 @ A4 )
= A4 ) ).
% Un_absorb
thf(fact_28_Un__commute,axiom,
! [A: $tType] :
( ( sup_sup @ ( set @ A ) )
= ( ^ [A5: set @ A,B5: set @ A] : ( sup_sup @ ( set @ A ) @ B5 @ A5 ) ) ) ).
% Un_commute
thf(fact_29_Un__left__absorb,axiom,
! [A: $tType,A4: set @ A,B3: set @ A] :
( ( sup_sup @ ( set @ A ) @ A4 @ ( sup_sup @ ( set @ A ) @ A4 @ B3 ) )
= ( sup_sup @ ( set @ A ) @ A4 @ B3 ) ) ).
% Un_left_absorb
thf(fact_30_Un__left__commute,axiom,
! [A: $tType,A4: set @ A,B3: set @ A,C3: set @ A] :
( ( sup_sup @ ( set @ A ) @ A4 @ ( sup_sup @ ( set @ A ) @ B3 @ C3 ) )
= ( sup_sup @ ( set @ A ) @ B3 @ ( sup_sup @ ( set @ A ) @ A4 @ C3 ) ) ) ).
% Un_left_commute
thf(fact_31_old_Oprod_Oinducts,axiom,
! [B: $tType,A: $tType,P: ( product_prod @ A @ B ) > $o,Prod: product_prod @ A @ B] :
( ! [A6: A,B6: B] : ( P @ ( product_Pair @ A @ B @ A6 @ B6 ) )
=> ( P @ Prod ) ) ).
% old.prod.inducts
thf(fact_32_old_Oprod_Oexhaust,axiom,
! [A: $tType,B: $tType,Y: product_prod @ A @ B] :
~ ! [A6: A,B6: B] :
( Y
!= ( product_Pair @ A @ B @ A6 @ B6 ) ) ).
% old.prod.exhaust
thf(fact_33_prod__induct7,axiom,
! [G: $tType,F2: $tType,E: $tType,D: $tType,C: $tType,B: $tType,A: $tType,P: ( product_prod @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ ( product_prod @ F2 @ G ) ) ) ) ) ) > $o,X: product_prod @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ ( product_prod @ F2 @ G ) ) ) ) )] :
( ! [A6: A,B6: B,C4: C,D2: D,E2: E,F3: F2,G2: G] : ( P @ ( product_Pair @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ ( product_prod @ F2 @ G ) ) ) ) ) @ A6 @ ( product_Pair @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ ( product_prod @ F2 @ G ) ) ) ) @ B6 @ ( product_Pair @ C @ ( product_prod @ D @ ( product_prod @ E @ ( product_prod @ F2 @ G ) ) ) @ C4 @ ( product_Pair @ D @ ( product_prod @ E @ ( product_prod @ F2 @ G ) ) @ D2 @ ( product_Pair @ E @ ( product_prod @ F2 @ G ) @ E2 @ ( product_Pair @ F2 @ G @ F3 @ G2 ) ) ) ) ) ) )
=> ( P @ X ) ) ).
% prod_induct7
thf(fact_34_prod__induct6,axiom,
! [F2: $tType,E: $tType,D: $tType,C: $tType,B: $tType,A: $tType,P: ( product_prod @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ F2 ) ) ) ) ) > $o,X: product_prod @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ F2 ) ) ) )] :
( ! [A6: A,B6: B,C4: C,D2: D,E2: E,F3: F2] : ( P @ ( product_Pair @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ F2 ) ) ) ) @ A6 @ ( product_Pair @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ F2 ) ) ) @ B6 @ ( product_Pair @ C @ ( product_prod @ D @ ( product_prod @ E @ F2 ) ) @ C4 @ ( product_Pair @ D @ ( product_prod @ E @ F2 ) @ D2 @ ( product_Pair @ E @ F2 @ E2 @ F3 ) ) ) ) ) )
=> ( P @ X ) ) ).
% prod_induct6
thf(fact_35_prod__induct5,axiom,
! [E: $tType,D: $tType,C: $tType,B: $tType,A: $tType,P: ( product_prod @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ E ) ) ) ) > $o,X: product_prod @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ E ) ) )] :
( ! [A6: A,B6: B,C4: C,D2: D,E2: E] : ( P @ ( product_Pair @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ E ) ) ) @ A6 @ ( product_Pair @ B @ ( product_prod @ C @ ( product_prod @ D @ E ) ) @ B6 @ ( product_Pair @ C @ ( product_prod @ D @ E ) @ C4 @ ( product_Pair @ D @ E @ D2 @ E2 ) ) ) ) )
=> ( P @ X ) ) ).
% prod_induct5
thf(fact_36_prod__induct4,axiom,
! [D: $tType,C: $tType,B: $tType,A: $tType,P: ( product_prod @ A @ ( product_prod @ B @ ( product_prod @ C @ D ) ) ) > $o,X: product_prod @ A @ ( product_prod @ B @ ( product_prod @ C @ D ) )] :
( ! [A6: A,B6: B,C4: C,D2: D] : ( P @ ( product_Pair @ A @ ( product_prod @ B @ ( product_prod @ C @ D ) ) @ A6 @ ( product_Pair @ B @ ( product_prod @ C @ D ) @ B6 @ ( product_Pair @ C @ D @ C4 @ D2 ) ) ) )
=> ( P @ X ) ) ).
% prod_induct4
thf(fact_37_prod__induct3,axiom,
! [C: $tType,B: $tType,A: $tType,P: ( product_prod @ A @ ( product_prod @ B @ C ) ) > $o,X: product_prod @ A @ ( product_prod @ B @ C )] :
( ! [A6: A,B6: B,C4: C] : ( P @ ( product_Pair @ A @ ( product_prod @ B @ C ) @ A6 @ ( product_Pair @ B @ C @ B6 @ C4 ) ) )
=> ( P @ X ) ) ).
% prod_induct3
thf(fact_38_prod__cases7,axiom,
! [A: $tType,B: $tType,C: $tType,D: $tType,E: $tType,F2: $tType,G: $tType,Y: product_prod @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ ( product_prod @ F2 @ G ) ) ) ) )] :
~ ! [A6: A,B6: B,C4: C,D2: D,E2: E,F3: F2,G2: G] :
( Y
!= ( product_Pair @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ ( product_prod @ F2 @ G ) ) ) ) ) @ A6 @ ( product_Pair @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ ( product_prod @ F2 @ G ) ) ) ) @ B6 @ ( product_Pair @ C @ ( product_prod @ D @ ( product_prod @ E @ ( product_prod @ F2 @ G ) ) ) @ C4 @ ( product_Pair @ D @ ( product_prod @ E @ ( product_prod @ F2 @ G ) ) @ D2 @ ( product_Pair @ E @ ( product_prod @ F2 @ G ) @ E2 @ ( product_Pair @ F2 @ G @ F3 @ G2 ) ) ) ) ) ) ) ).
% prod_cases7
thf(fact_39_prod__cases6,axiom,
! [A: $tType,B: $tType,C: $tType,D: $tType,E: $tType,F2: $tType,Y: product_prod @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ F2 ) ) ) )] :
~ ! [A6: A,B6: B,C4: C,D2: D,E2: E,F3: F2] :
( Y
!= ( product_Pair @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ F2 ) ) ) ) @ A6 @ ( product_Pair @ B @ ( product_prod @ C @ ( product_prod @ D @ ( product_prod @ E @ F2 ) ) ) @ B6 @ ( product_Pair @ C @ ( product_prod @ D @ ( product_prod @ E @ F2 ) ) @ C4 @ ( product_Pair @ D @ ( product_prod @ E @ F2 ) @ D2 @ ( product_Pair @ E @ F2 @ E2 @ F3 ) ) ) ) ) ) ).
% prod_cases6
thf(fact_40_prod__cases5,axiom,
! [A: $tType,B: $tType,C: $tType,D: $tType,E: $tType,Y: product_prod @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ E ) ) )] :
~ ! [A6: A,B6: B,C4: C,D2: D,E2: E] :
( Y
!= ( product_Pair @ A @ ( product_prod @ B @ ( product_prod @ C @ ( product_prod @ D @ E ) ) ) @ A6 @ ( product_Pair @ B @ ( product_prod @ C @ ( product_prod @ D @ E ) ) @ B6 @ ( product_Pair @ C @ ( product_prod @ D @ E ) @ C4 @ ( product_Pair @ D @ E @ D2 @ E2 ) ) ) ) ) ).
% prod_cases5
thf(fact_41_prod__cases4,axiom,
! [A: $tType,B: $tType,C: $tType,D: $tType,Y: product_prod @ A @ ( product_prod @ B @ ( product_prod @ C @ D ) )] :
~ ! [A6: A,B6: B,C4: C,D2: D] :
( Y
!= ( product_Pair @ A @ ( product_prod @ B @ ( product_prod @ C @ D ) ) @ A6 @ ( product_Pair @ B @ ( product_prod @ C @ D ) @ B6 @ ( product_Pair @ C @ D @ C4 @ D2 ) ) ) ) ).
% prod_cases4
thf(fact_42_prod__cases3,axiom,
! [A: $tType,B: $tType,C: $tType,Y: product_prod @ A @ ( product_prod @ B @ C )] :
~ ! [A6: A,B6: B,C4: C] :
( Y
!= ( product_Pair @ A @ ( product_prod @ B @ C ) @ A6 @ ( product_Pair @ B @ C @ B6 @ C4 ) ) ) ).
% prod_cases3
thf(fact_43_Pair__inject,axiom,
! [A: $tType,B: $tType,A2: A,B2: B,A3: A,B4: B] :
( ( ( product_Pair @ A @ B @ A2 @ B2 )
= ( product_Pair @ A @ B @ A3 @ B4 ) )
=> ~ ( ( A2 = A3 )
=> ( B2 != B4 ) ) ) ).
% Pair_inject
thf(fact_44_prod__cases,axiom,
! [B: $tType,A: $tType,P: ( product_prod @ A @ B ) > $o,P2: product_prod @ A @ B] :
( ! [A6: A,B6: B] : ( P @ ( product_Pair @ A @ B @ A6 @ B6 ) )
=> ( P @ P2 ) ) ).
% prod_cases
thf(fact_45_mem__Collect__eq,axiom,
! [A: $tType,A2: A,P: A > $o] :
( ( member @ A @ A2 @ ( collect @ A @ P ) )
= ( P @ A2 ) ) ).
% mem_Collect_eq
thf(fact_46_Collect__mem__eq,axiom,
! [A: $tType,A4: set @ A] :
( ( collect @ A
@ ^ [X4: A] : ( member @ A @ X4 @ A4 ) )
= A4 ) ).
% Collect_mem_eq
thf(fact_47_Collect__cong,axiom,
! [A: $tType,P: A > $o,Q: A > $o] :
( ! [X3: A] :
( ( P @ X3 )
= ( Q @ X3 ) )
=> ( ( collect @ A @ P )
= ( collect @ A @ Q ) ) ) ).
% Collect_cong
thf(fact_48_ext,axiom,
! [B: $tType,A: $tType,F: A > B,G3: A > B] :
( ! [X3: A] :
( ( F @ X3 )
= ( G3 @ X3 ) )
=> ( F = G3 ) ) ).
% ext
thf(fact_49_surj__pair,axiom,
! [A: $tType,B: $tType,P2: product_prod @ A @ B] :
? [X3: A,Y3: B] :
( P2
= ( product_Pair @ A @ B @ X3 @ Y3 ) ) ).
% surj_pair
thf(fact_50_old_Oprod_Orec,axiom,
! [A: $tType,T: $tType,B: $tType,F1: A > B > T,A2: A,B2: B] :
( ( product_rec_prod @ A @ B @ T @ F1 @ ( product_Pair @ A @ B @ A2 @ B2 ) )
= ( F1 @ A2 @ B2 ) ) ).
% old.prod.rec
thf(fact_51_sup__apply,axiom,
! [B: $tType,A: $tType] :
( ( semilattice_sup @ B @ ( type2 @ B ) )
=> ( ( sup_sup @ ( A > B ) )
= ( ^ [F4: A > B,G4: A > B,X4: A] : ( sup_sup @ B @ ( F4 @ X4 ) @ ( G4 @ X4 ) ) ) ) ) ).
% sup_apply
thf(fact_52_sup_Oidem,axiom,
! [A: $tType] :
( ( semilattice_sup @ A @ ( type2 @ A ) )
=> ! [A2: A] :
( ( sup_sup @ A @ A2 @ A2 )
= A2 ) ) ).
% sup.idem
thf(fact_53_sup__idem,axiom,
! [A: $tType] :
( ( semilattice_sup @ A @ ( type2 @ A ) )
=> ! [X: A] :
( ( sup_sup @ A @ X @ X )
= X ) ) ).
% sup_idem
thf(fact_54_sup_Oleft__idem,axiom,
! [A: $tType] :
( ( semilattice_sup @ A @ ( type2 @ A ) )
=> ! [A2: A,B2: A] :
( ( sup_sup @ A @ A2 @ ( sup_sup @ A @ A2 @ B2 ) )
= ( sup_sup @ A @ A2 @ B2 ) ) ) ).
% sup.left_idem
thf(fact_55_sup__left__idem,axiom,
! [A: $tType] :
( ( semilattice_sup @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A] :
( ( sup_sup @ A @ X @ ( sup_sup @ A @ X @ Y ) )
= ( sup_sup @ A @ X @ Y ) ) ) ).
% sup_left_idem
thf(fact_56_sup_Oright__idem,axiom,
! [A: $tType] :
( ( semilattice_sup @ A @ ( type2 @ A ) )
=> ! [A2: A,B2: A] :
( ( sup_sup @ A @ ( sup_sup @ A @ A2 @ B2 ) @ B2 )
= ( sup_sup @ A @ A2 @ B2 ) ) ) ).
% sup.right_idem
thf(fact_57_old_Osum_Osimps_I7_J,axiom,
! [B: $tType,T: $tType,A: $tType,F1: A > T,F22: B > T,A2: A] :
( ( sum_rec_sum @ A @ T @ B @ F1 @ F22 @ ( sum_Inl @ A @ B @ A2 ) )
= ( F1 @ A2 ) ) ).
% old.sum.simps(7)
thf(fact_58_internal__case__prod__conv,axiom,
! [B: $tType,A: $tType,C: $tType,C2: B > C > A,A2: B,B2: C] :
( ( produc2004651681e_prod @ B @ C @ A @ C2 @ ( product_Pair @ B @ C @ A2 @ B2 ) )
= ( C2 @ A2 @ B2 ) ) ).
% internal_case_prod_conv
thf(fact_59_Suml_Osimps,axiom,
! [B: $tType,C: $tType,A: $tType,F: A > C,X: A] :
( ( sum_Suml @ A @ C @ B @ F @ ( sum_Inl @ A @ B @ X ) )
= ( F @ X ) ) ).
% Suml.simps
thf(fact_60_Suml__inject,axiom,
! [B: $tType,C: $tType,A: $tType,F: A > C,G3: A > C] :
( ( ( sum_Suml @ A @ C @ B @ F )
= ( sum_Suml @ A @ C @ B @ G3 ) )
=> ( F = G3 ) ) ).
% Suml_inject
thf(fact_61_sup__left__commute,axiom,
! [A: $tType] :
( ( semilattice_sup @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A,Z: A] :
( ( sup_sup @ A @ X @ ( sup_sup @ A @ Y @ Z ) )
= ( sup_sup @ A @ Y @ ( sup_sup @ A @ X @ Z ) ) ) ) ).
% sup_left_commute
thf(fact_62_sup_Oleft__commute,axiom,
! [A: $tType] :
( ( semilattice_sup @ A @ ( type2 @ A ) )
=> ! [B2: A,A2: A,C2: A] :
( ( sup_sup @ A @ B2 @ ( sup_sup @ A @ A2 @ C2 ) )
= ( sup_sup @ A @ A2 @ ( sup_sup @ A @ B2 @ C2 ) ) ) ) ).
% sup.left_commute
thf(fact_63_sup__commute,axiom,
! [A: $tType] :
( ( semilattice_sup @ A @ ( type2 @ A ) )
=> ( ( sup_sup @ A )
= ( ^ [X4: A,Y4: A] : ( sup_sup @ A @ Y4 @ X4 ) ) ) ) ).
% sup_commute
thf(fact_64_sup_Ocommute,axiom,
! [A: $tType] :
( ( semilattice_sup @ A @ ( type2 @ A ) )
=> ( ( sup_sup @ A )
= ( ^ [A7: A,B7: A] : ( sup_sup @ A @ B7 @ A7 ) ) ) ) ).
% sup.commute
thf(fact_65_sup__assoc,axiom,
! [A: $tType] :
( ( semilattice_sup @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A,Z: A] :
( ( sup_sup @ A @ ( sup_sup @ A @ X @ Y ) @ Z )
= ( sup_sup @ A @ X @ ( sup_sup @ A @ Y @ Z ) ) ) ) ).
% sup_assoc
thf(fact_66_sup_Oassoc,axiom,
! [A: $tType] :
( ( semilattice_sup @ A @ ( type2 @ A ) )
=> ! [A2: A,B2: A,C2: A] :
( ( sup_sup @ A @ ( sup_sup @ A @ A2 @ B2 ) @ C2 )
= ( sup_sup @ A @ A2 @ ( sup_sup @ A @ B2 @ C2 ) ) ) ) ).
% sup.assoc
thf(fact_67_sup__fun__def,axiom,
! [B: $tType,A: $tType] :
( ( semilattice_sup @ B @ ( type2 @ B ) )
=> ( ( sup_sup @ ( A > B ) )
= ( ^ [F4: A > B,G4: A > B,X4: A] : ( sup_sup @ B @ ( F4 @ X4 ) @ ( G4 @ X4 ) ) ) ) ) ).
% sup_fun_def
thf(fact_68_inf__sup__aci_I5_J,axiom,
! [A: $tType] :
( ( lattice @ A @ ( type2 @ A ) )
=> ( ( sup_sup @ A )
= ( ^ [X4: A,Y4: A] : ( sup_sup @ A @ Y4 @ X4 ) ) ) ) ).
% inf_sup_aci(5)
thf(fact_69_inf__sup__aci_I6_J,axiom,
! [A: $tType] :
( ( lattice @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A,Z: A] :
( ( sup_sup @ A @ ( sup_sup @ A @ X @ Y ) @ Z )
= ( sup_sup @ A @ X @ ( sup_sup @ A @ Y @ Z ) ) ) ) ).
% inf_sup_aci(6)
thf(fact_70_inf__sup__aci_I7_J,axiom,
! [A: $tType] :
( ( lattice @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A,Z: A] :
( ( sup_sup @ A @ X @ ( sup_sup @ A @ Y @ Z ) )
= ( sup_sup @ A @ Y @ ( sup_sup @ A @ X @ Z ) ) ) ) ).
% inf_sup_aci(7)
thf(fact_71_inf__sup__aci_I8_J,axiom,
! [A: $tType] :
( ( lattice @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A] :
( ( sup_sup @ A @ X @ ( sup_sup @ A @ X @ Y ) )
= ( sup_sup @ A @ X @ Y ) ) ) ).
% inf_sup_aci(8)
thf(fact_72_ssubst__Pair__rhs,axiom,
! [B: $tType,A: $tType,R: A,S: B,R2: set @ ( product_prod @ A @ B ),S2: B] :
( ( member @ ( product_prod @ A @ B ) @ ( product_Pair @ A @ B @ R @ S ) @ R2 )
=> ( ( S2 = S )
=> ( member @ ( product_prod @ A @ B ) @ ( product_Pair @ A @ B @ R @ S2 ) @ R2 ) ) ) ).
% ssubst_Pair_rhs
thf(fact_73_curry__conv,axiom,
! [A: $tType,C: $tType,B: $tType] :
( ( product_curry @ B @ C @ A )
= ( ^ [F4: ( product_prod @ B @ C ) > A,A7: B,B7: C] : ( F4 @ ( product_Pair @ B @ C @ A7 @ B7 ) ) ) ) ).
% curry_conv
thf(fact_74_curryI,axiom,
! [A: $tType,B: $tType,F: ( product_prod @ A @ B ) > $o,A2: A,B2: B] :
( ( F @ ( product_Pair @ A @ B @ A2 @ B2 ) )
=> ( product_curry @ A @ B @ $o @ F @ A2 @ B2 ) ) ).
% curryI
thf(fact_75_swap__simp,axiom,
! [A: $tType,B: $tType,X: B,Y: A] :
( ( product_swap @ B @ A @ ( product_Pair @ B @ A @ X @ Y ) )
= ( product_Pair @ A @ B @ Y @ X ) ) ).
% swap_simp
thf(fact_76_internal__case__prod__def,axiom,
! [C: $tType,B: $tType,A: $tType] :
( ( produc2004651681e_prod @ A @ B @ C )
= ( product_case_prod @ A @ B @ C ) ) ).
% internal_case_prod_def
thf(fact_77_old_Osum_Osimps_I8_J,axiom,
! [A: $tType,T: $tType,B: $tType,F1: A > T,F22: B > T,B2: B] :
( ( sum_rec_sum @ A @ T @ B @ F1 @ F22 @ ( sum_Inr @ B @ A @ B2 ) )
= ( F22 @ B2 ) ) ).
% old.sum.simps(8)
thf(fact_78_apsnd__conv,axiom,
! [A: $tType,B: $tType,C: $tType,F: C > B,X: A,Y: C] :
( ( product_apsnd @ C @ B @ A @ F @ ( product_Pair @ A @ C @ X @ Y ) )
= ( product_Pair @ A @ B @ X @ ( F @ Y ) ) ) ).
% apsnd_conv
thf(fact_79_old_Osum_Oinject_I2_J,axiom,
! [A: $tType,B: $tType,B2: B,B4: B] :
( ( ( sum_Inr @ B @ A @ B2 )
= ( sum_Inr @ B @ A @ B4 ) )
= ( B2 = B4 ) ) ).
% old.sum.inject(2)
thf(fact_80_sum_Oinject_I2_J,axiom,
! [A: $tType,B: $tType,X2: B,Y2: B] :
( ( ( sum_Inr @ B @ A @ X2 )
= ( sum_Inr @ B @ A @ Y2 ) )
= ( X2 = Y2 ) ) ).
% sum.inject(2)
thf(fact_81_swap__swap,axiom,
! [B: $tType,A: $tType,P2: product_prod @ A @ B] :
( ( product_swap @ B @ A @ ( product_swap @ A @ B @ P2 ) )
= P2 ) ).
% swap_swap
thf(fact_82_curry__case__prod,axiom,
! [C: $tType,B: $tType,A: $tType,F: A > B > C] :
( ( product_curry @ A @ B @ C @ ( product_case_prod @ A @ B @ C @ F ) )
= F ) ).
% curry_case_prod
thf(fact_83_case__prod__curry,axiom,
! [C: $tType,B: $tType,A: $tType,F: ( product_prod @ A @ B ) > C] :
( ( product_case_prod @ A @ B @ C @ ( product_curry @ A @ B @ C @ F ) )
= F ) ).
% case_prod_curry
thf(fact_84_Inr__inject,axiom,
! [A: $tType,B: $tType,X: B,Y: B] :
( ( ( sum_Inr @ B @ A @ X )
= ( sum_Inr @ B @ A @ Y ) )
=> ( X = Y ) ) ).
% Inr_inject
thf(fact_85_old_Osum_Oinducts,axiom,
! [B: $tType,A: $tType,P: ( sum_sum @ A @ B ) > $o,Sum: sum_sum @ A @ B] :
( ! [A6: A] : ( P @ ( sum_Inl @ A @ B @ A6 ) )
=> ( ! [B6: B] : ( P @ ( sum_Inr @ B @ A @ B6 ) )
=> ( P @ Sum ) ) ) ).
% old.sum.inducts
thf(fact_86_old_Osum_Oexhaust,axiom,
! [A: $tType,B: $tType,Y: sum_sum @ A @ B] :
( ! [A6: A] :
( Y
!= ( sum_Inl @ A @ B @ A6 ) )
=> ~ ! [B6: B] :
( Y
!= ( sum_Inr @ B @ A @ B6 ) ) ) ).
% old.sum.exhaust
thf(fact_87_split__sum__all,axiom,
! [B: $tType,A: $tType] :
( ( ^ [P3: ( sum_sum @ A @ B ) > $o] :
! [X5: sum_sum @ A @ B] : ( P3 @ X5 ) )
= ( ^ [P4: ( sum_sum @ A @ B ) > $o] :
( ! [X4: A] : ( P4 @ ( sum_Inl @ A @ B @ X4 ) )
& ! [X4: B] : ( P4 @ ( sum_Inr @ B @ A @ X4 ) ) ) ) ) ).
% split_sum_all
thf(fact_88_split__sum__ex,axiom,
! [B: $tType,A: $tType] :
( ( ^ [P3: ( sum_sum @ A @ B ) > $o] :
? [X5: sum_sum @ A @ B] : ( P3 @ X5 ) )
= ( ^ [P4: ( sum_sum @ A @ B ) > $o] :
( ? [X4: A] : ( P4 @ ( sum_Inl @ A @ B @ X4 ) )
| ? [X4: B] : ( P4 @ ( sum_Inr @ B @ A @ X4 ) ) ) ) ) ).
% split_sum_ex
thf(fact_89_Inr__not__Inl,axiom,
! [B: $tType,A: $tType,B2: B,A2: A] :
( ( sum_Inr @ B @ A @ B2 )
!= ( sum_Inl @ A @ B @ A2 ) ) ).
% Inr_not_Inl
thf(fact_90_sumE,axiom,
! [A: $tType,B: $tType,S: sum_sum @ A @ B] :
( ! [X3: A] :
( S
!= ( sum_Inl @ A @ B @ X3 ) )
=> ~ ! [Y3: B] :
( S
!= ( sum_Inr @ B @ A @ Y3 ) ) ) ).
% sumE
thf(fact_91_old_Osum_Odistinct_I1_J,axiom,
! [A: $tType,B: $tType,A2: A,B4: B] :
( ( sum_Inl @ A @ B @ A2 )
!= ( sum_Inr @ B @ A @ B4 ) ) ).
% old.sum.distinct(1)
thf(fact_92_old_Osum_Odistinct_I2_J,axiom,
! [B8: $tType,A8: $tType,B9: B8,A9: A8] :
( ( sum_Inr @ B8 @ A8 @ B9 )
!= ( sum_Inl @ A8 @ B8 @ A9 ) ) ).
% old.sum.distinct(2)
thf(fact_93_sum_Odistinct_I1_J,axiom,
! [A: $tType,B: $tType,X1: A,X2: B] :
( ( sum_Inl @ A @ B @ X1 )
!= ( sum_Inr @ B @ A @ X2 ) ) ).
% sum.distinct(1)
thf(fact_94_mem__case__prodE,axiom,
! [B: $tType,A: $tType,C: $tType,Z: A,C2: B > C > ( set @ A ),P2: product_prod @ B @ C] :
( ( member @ A @ Z @ ( product_case_prod @ B @ C @ ( set @ A ) @ C2 @ P2 ) )
=> ~ ! [X3: B,Y3: C] :
( ( P2
= ( product_Pair @ B @ C @ X3 @ Y3 ) )
=> ~ ( member @ A @ Z @ ( C2 @ X3 @ Y3 ) ) ) ) ).
% mem_case_prodE
thf(fact_95_old_Oprod_Ocase,axiom,
! [A: $tType,C: $tType,B: $tType,F: A > B > C,X1: A,X2: B] :
( ( product_case_prod @ A @ B @ C @ F @ ( product_Pair @ A @ B @ X1 @ X2 ) )
= ( F @ X1 @ X2 ) ) ).
% old.prod.case
thf(fact_96_curryE,axiom,
! [A: $tType,B: $tType,F: ( product_prod @ A @ B ) > $o,A2: A,B2: B] :
( ( product_curry @ A @ B @ $o @ F @ A2 @ B2 )
=> ( F @ ( product_Pair @ A @ B @ A2 @ B2 ) ) ) ).
% curryE
thf(fact_97_curryD,axiom,
! [A: $tType,B: $tType,F: ( product_prod @ A @ B ) > $o,A2: A,B2: B] :
( ( product_curry @ A @ B @ $o @ F @ A2 @ B2 )
=> ( F @ ( product_Pair @ A @ B @ A2 @ B2 ) ) ) ).
% curryD
thf(fact_98_Inl__Inr__False,axiom,
! [A: $tType,B: $tType,X: A,Y: B] :
( ( sum_Inl @ A @ B @ X )
!= ( sum_Inr @ B @ A @ Y ) ) ).
% Inl_Inr_False
thf(fact_99_Inr__Inl__False,axiom,
! [B: $tType,A: $tType,X: B,Y: A] :
( ( sum_Inr @ B @ A @ X )
!= ( sum_Inl @ A @ B @ Y ) ) ).
% Inr_Inl_False
thf(fact_100_Inl__Inr__image__cong,axiom,
! [B: $tType,A: $tType,A4: set @ ( sum_sum @ A @ B ),B3: set @ ( sum_sum @ A @ B )] :
( ( ( vimage @ A @ ( sum_sum @ A @ B ) @ ( sum_Inl @ A @ B ) @ A4 )
= ( vimage @ A @ ( sum_sum @ A @ B ) @ ( sum_Inl @ A @ B ) @ B3 ) )
=> ( ( ( vimage @ B @ ( sum_sum @ A @ B ) @ ( sum_Inr @ B @ A ) @ A4 )
= ( vimage @ B @ ( sum_sum @ A @ B ) @ ( sum_Inr @ B @ A ) @ B3 ) )
=> ( A4 = B3 ) ) ) ).
% Inl_Inr_image_cong
thf(fact_101_obj__sumE__f,axiom,
! [A: $tType,C: $tType,B: $tType,S: B,F: ( sum_sum @ A @ C ) > B,P: $o] :
( ! [X3: A] :
( ( S
= ( F @ ( sum_Inl @ A @ C @ X3 ) ) )
=> P )
=> ( ! [X3: C] :
( ( S
= ( F @ ( sum_Inr @ C @ A @ X3 ) ) )
=> P )
=> ! [X6: sum_sum @ A @ C] :
( ( S
= ( F @ X6 ) )
=> P ) ) ) ).
% obj_sumE_f
thf(fact_102_obj__sumE,axiom,
! [A: $tType,B: $tType,S: sum_sum @ A @ B] :
( ! [X3: A] :
( S
!= ( sum_Inl @ A @ B @ X3 ) )
=> ~ ! [X3: B] :
( S
!= ( sum_Inr @ B @ A @ X3 ) ) ) ).
% obj_sumE
thf(fact_103_split__cong,axiom,
! [C: $tType,B: $tType,A: $tType,Q2: product_prod @ A @ B,F: A > B > C,G3: A > B > C,P2: product_prod @ A @ B] :
( ! [X3: A,Y3: B] :
( ( ( product_Pair @ A @ B @ X3 @ Y3 )
= Q2 )
=> ( ( F @ X3 @ Y3 )
= ( G3 @ X3 @ Y3 ) ) )
=> ( ( P2 = Q2 )
=> ( ( product_case_prod @ A @ B @ C @ F @ P2 )
= ( product_case_prod @ A @ B @ C @ G3 @ Q2 ) ) ) ) ).
% split_cong
thf(fact_104_not__arg__cong__Inr,axiom,
! [B: $tType,A: $tType,X: A,Y: A] :
( ( X != Y )
=> ( ( sum_Inr @ A @ B @ X )
!= ( sum_Inr @ A @ B @ Y ) ) ) ).
% not_arg_cong_Inr
thf(fact_105_Sumr_Osimps,axiom,
! [A: $tType,C: $tType,B: $tType,F: B > C,X: B] :
( ( sum_Sumr @ B @ C @ A @ F @ ( sum_Inr @ B @ A @ X ) )
= ( F @ X ) ) ).
% Sumr.simps
thf(fact_106_image2__eqI,axiom,
! [A: $tType,C: $tType,B: $tType,B2: A,F: B > A,X: B,C2: C,G3: B > C,A4: set @ B] :
( ( B2
= ( F @ X ) )
=> ( ( C2
= ( G3 @ X ) )
=> ( ( member @ B @ X @ A4 )
=> ( member @ ( product_prod @ A @ C ) @ ( product_Pair @ A @ C @ B2 @ C2 ) @ ( bNF_Greatest_image2 @ B @ A @ C @ A4 @ F @ G3 ) ) ) ) ) ).
% image2_eqI
thf(fact_107_scomp__apply,axiom,
! [A: $tType,D: $tType,C: $tType,B: $tType] :
( ( product_scomp @ B @ C @ D @ A )
= ( ^ [F4: B > ( product_prod @ C @ D ),G4: C > D > A,X4: B] : ( product_case_prod @ C @ D @ A @ G4 @ ( F4 @ X4 ) ) ) ) ).
% scomp_apply
thf(fact_108_pair__in__swap__image,axiom,
! [A: $tType,B: $tType,Y: A,X: B,A4: set @ ( product_prod @ B @ A )] :
( ( member @ ( product_prod @ A @ B ) @ ( product_Pair @ A @ B @ Y @ X ) @ ( image @ ( product_prod @ B @ A ) @ ( product_prod @ A @ B ) @ ( product_swap @ B @ A ) @ A4 ) )
= ( member @ ( product_prod @ B @ A ) @ ( product_Pair @ B @ A @ X @ Y ) @ A4 ) ) ).
% pair_in_swap_image
thf(fact_109_case__sum__if,axiom,
! [B: $tType,A: $tType,C: $tType,P2: $o,F: B > A,G3: C > A,X: B,Y: C] :
( ( P2
=> ( ( sum_case_sum @ B @ A @ C @ F @ G3 @ ( if @ ( sum_sum @ B @ C ) @ P2 @ ( sum_Inl @ B @ C @ X ) @ ( sum_Inr @ C @ B @ Y ) ) )
= ( F @ X ) ) )
& ( ~ P2
=> ( ( sum_case_sum @ B @ A @ C @ F @ G3 @ ( if @ ( sum_sum @ B @ C ) @ P2 @ ( sum_Inl @ B @ C @ X ) @ ( sum_Inr @ C @ B @ Y ) ) )
= ( G3 @ Y ) ) ) ) ).
% case_sum_if
thf(fact_110_image__eqI,axiom,
! [A: $tType,B: $tType,B2: A,F: B > A,X: B,A4: set @ B] :
( ( B2
= ( F @ X ) )
=> ( ( member @ B @ X @ A4 )
=> ( member @ A @ B2 @ ( image @ B @ A @ F @ A4 ) ) ) ) ).
% image_eqI
thf(fact_111_case__sum__step_I2_J,axiom,
! [E: $tType,A: $tType,C: $tType,B: $tType,F: E > A,F5: B > A,G5: C > A,P2: sum_sum @ B @ C] :
( ( sum_case_sum @ E @ A @ ( sum_sum @ B @ C ) @ F @ ( sum_case_sum @ B @ A @ C @ F5 @ G5 ) @ ( sum_Inr @ ( sum_sum @ B @ C ) @ E @ P2 ) )
= ( sum_case_sum @ B @ A @ C @ F5 @ G5 @ P2 ) ) ).
% case_sum_step(2)
thf(fact_112_case__sum__step_I1_J,axiom,
! [D: $tType,A: $tType,C: $tType,B: $tType,F5: B > A,G5: C > A,G3: D > A,P2: sum_sum @ B @ C] :
( ( sum_case_sum @ ( sum_sum @ B @ C ) @ A @ D @ ( sum_case_sum @ B @ A @ C @ F5 @ G5 ) @ G3 @ ( sum_Inl @ ( sum_sum @ B @ C ) @ D @ P2 ) )
= ( sum_case_sum @ B @ A @ C @ F5 @ G5 @ P2 ) ) ).
% case_sum_step(1)
thf(fact_113_image__Un,axiom,
! [A: $tType,B: $tType,F: B > A,A4: set @ B,B3: set @ B] :
( ( image @ B @ A @ F @ ( sup_sup @ ( set @ B ) @ A4 @ B3 ) )
= ( sup_sup @ ( set @ A ) @ ( image @ B @ A @ F @ A4 ) @ ( image @ B @ A @ F @ B3 ) ) ) ).
% image_Un
thf(fact_114_case__sum__inject,axiom,
! [A: $tType,C: $tType,B: $tType,F1: A > C,F22: B > C,G1: A > C,G22: B > C] :
( ( ( sum_case_sum @ A @ C @ B @ F1 @ F22 )
= ( sum_case_sum @ A @ C @ B @ G1 @ G22 ) )
=> ~ ( ( F1 = G1 )
=> ( F22 != G22 ) ) ) ).
% case_sum_inject
thf(fact_115_rev__image__eqI,axiom,
! [B: $tType,A: $tType,X: A,A4: set @ A,B2: B,F: A > B] :
( ( member @ A @ X @ A4 )
=> ( ( B2
= ( F @ X ) )
=> ( member @ B @ B2 @ ( image @ A @ B @ F @ A4 ) ) ) ) ).
% rev_image_eqI
thf(fact_116_ball__imageD,axiom,
! [A: $tType,B: $tType,F: B > A,A4: set @ B,P: A > $o] :
( ! [X3: A] :
( ( member @ A @ X3 @ ( image @ B @ A @ F @ A4 ) )
=> ( P @ X3 ) )
=> ! [X6: B] :
( ( member @ B @ X6 @ A4 )
=> ( P @ ( F @ X6 ) ) ) ) ).
% ball_imageD
thf(fact_117_image__cong,axiom,
! [B: $tType,A: $tType,M: set @ A,N: set @ A,F: A > B,G3: A > B] :
( ( M = N )
=> ( ! [X3: A] :
( ( member @ A @ X3 @ N )
=> ( ( F @ X3 )
= ( G3 @ X3 ) ) )
=> ( ( image @ A @ B @ F @ M )
= ( image @ A @ B @ G3 @ N ) ) ) ) ).
% image_cong
thf(fact_118_bex__imageD,axiom,
! [A: $tType,B: $tType,F: B > A,A4: set @ B,P: A > $o] :
( ? [X6: A] :
( ( member @ A @ X6 @ ( image @ B @ A @ F @ A4 ) )
& ( P @ X6 ) )
=> ? [X3: B] :
( ( member @ B @ X3 @ A4 )
& ( P @ ( F @ X3 ) ) ) ) ).
% bex_imageD
thf(fact_119_image__iff,axiom,
! [A: $tType,B: $tType,Z: A,F: B > A,A4: set @ B] :
( ( member @ A @ Z @ ( image @ B @ A @ F @ A4 ) )
= ( ? [X4: B] :
( ( member @ B @ X4 @ A4 )
& ( Z
= ( F @ X4 ) ) ) ) ) ).
% image_iff
thf(fact_120_imageI,axiom,
! [B: $tType,A: $tType,X: A,A4: set @ A,F: A > B] :
( ( member @ A @ X @ A4 )
=> ( member @ B @ ( F @ X ) @ ( image @ A @ B @ F @ A4 ) ) ) ).
% imageI
thf(fact_121_Sumr__inject,axiom,
! [A: $tType,C: $tType,B: $tType,F: B > C,G3: B > C] :
( ( ( sum_Sumr @ B @ C @ A @ F )
= ( sum_Sumr @ B @ C @ A @ G3 ) )
=> ( F = G3 ) ) ).
% Sumr_inject
thf(fact_122_old_Osum_Osimps_I6_J,axiom,
! [A: $tType,C: $tType,B: $tType,F1: A > C,F22: B > C,X2: B] :
( ( sum_case_sum @ A @ C @ B @ F1 @ F22 @ ( sum_Inr @ B @ A @ X2 ) )
= ( F22 @ X2 ) ) ).
% old.sum.simps(6)
thf(fact_123_old_Osum_Osimps_I5_J,axiom,
! [B: $tType,C: $tType,A: $tType,F1: A > C,F22: B > C,X1: A] :
( ( sum_case_sum @ A @ C @ B @ F1 @ F22 @ ( sum_Inl @ A @ B @ X1 ) )
= ( F1 @ X1 ) ) ).
% old.sum.simps(5)
thf(fact_124_scomp__Pair,axiom,
! [C: $tType,B: $tType,A: $tType,X: A > ( product_prod @ B @ C )] :
( ( product_scomp @ A @ B @ C @ ( product_prod @ B @ C ) @ X @ ( product_Pair @ B @ C ) )
= X ) ).
% scomp_Pair
thf(fact_125_Pair__scomp,axiom,
! [A: $tType,B: $tType,C: $tType,X: C,F: C > A > B] :
( ( product_scomp @ A @ C @ A @ B @ ( product_Pair @ C @ A @ X ) @ F )
= ( F @ X ) ) ).
% Pair_scomp
thf(fact_126_scomp__def,axiom,
! [D: $tType,C: $tType,B: $tType,A: $tType] :
( ( product_scomp @ A @ B @ C @ D )
= ( ^ [F4: A > ( product_prod @ B @ C ),G4: B > C > D,X4: A] : ( product_case_prod @ B @ C @ D @ G4 @ ( F4 @ X4 ) ) ) ) ).
% scomp_def
thf(fact_127_surj__swap,axiom,
! [B: $tType,A: $tType] :
( ( image @ ( product_prod @ B @ A ) @ ( product_prod @ A @ B ) @ ( product_swap @ B @ A ) @ ( top_top @ ( set @ ( product_prod @ B @ A ) ) ) )
= ( top_top @ ( set @ ( product_prod @ A @ B ) ) ) ) ).
% surj_swap
thf(fact_128_Inf_OINF__cong,axiom,
! [A: $tType,B: $tType,A4: set @ B,B3: set @ B,C3: B > A,D3: B > A,Inf: ( set @ A ) > A] :
( ( A4 = B3 )
=> ( ! [X3: B] :
( ( member @ B @ X3 @ B3 )
=> ( ( C3 @ X3 )
= ( D3 @ X3 ) ) )
=> ( ( Inf @ ( image @ B @ A @ C3 @ A4 ) )
= ( Inf @ ( image @ B @ A @ D3 @ B3 ) ) ) ) ) ).
% Inf.INF_cong
thf(fact_129_Sup_OSUP__cong,axiom,
! [A: $tType,B: $tType,A4: set @ B,B3: set @ B,C3: B > A,D3: B > A,Sup: ( set @ A ) > A] :
( ( A4 = B3 )
=> ( ! [X3: B] :
( ( member @ B @ X3 @ B3 )
=> ( ( C3 @ X3 )
= ( D3 @ X3 ) ) )
=> ( ( Sup @ ( image @ B @ A @ C3 @ A4 ) )
= ( Sup @ ( image @ B @ A @ D3 @ B3 ) ) ) ) ) ).
% Sup.SUP_cong
thf(fact_130_case__sum__expand__Inr__pointfree,axiom,
! [B: $tType,C: $tType,A: $tType,F: ( sum_sum @ A @ C ) > B,G3: A > B] :
( ( ( comp @ ( sum_sum @ A @ C ) @ B @ A @ F @ ( sum_Inl @ A @ C ) )
= G3 )
=> ( ( sum_case_sum @ A @ B @ C @ G3 @ ( comp @ ( sum_sum @ A @ C ) @ B @ C @ F @ ( sum_Inr @ C @ A ) ) )
= F ) ) ).
% case_sum_expand_Inr_pointfree
thf(fact_131_case__sum__expand__Inr_H,axiom,
! [B: $tType,C: $tType,A: $tType,F: ( sum_sum @ A @ C ) > B,G3: A > B,H: C > B] :
( ( ( comp @ ( sum_sum @ A @ C ) @ B @ A @ F @ ( sum_Inl @ A @ C ) )
= G3 )
=> ( ( H
= ( comp @ ( sum_sum @ A @ C ) @ B @ C @ F @ ( sum_Inr @ C @ A ) ) )
= ( ( sum_case_sum @ A @ B @ C @ G3 @ H )
= F ) ) ) ).
% case_sum_expand_Inr'
thf(fact_132_UNIV__I,axiom,
! [A: $tType,X: A] : ( member @ A @ X @ ( top_top @ ( set @ A ) ) ) ).
% UNIV_I
thf(fact_133_sup__top__right,axiom,
! [A: $tType] :
( ( bounded_lattice_top @ A @ ( type2 @ A ) )
=> ! [X: A] :
( ( sup_sup @ A @ X @ ( top_top @ A ) )
= ( top_top @ A ) ) ) ).
% sup_top_right
thf(fact_134_sup__top__left,axiom,
! [A: $tType] :
( ( bounded_lattice_top @ A @ ( type2 @ A ) )
=> ! [X: A] :
( ( sup_sup @ A @ ( top_top @ A ) @ X )
= ( top_top @ A ) ) ) ).
% sup_top_left
thf(fact_135_vimage__UNIV,axiom,
! [B: $tType,A: $tType,F: A > B] :
( ( vimage @ A @ B @ F @ ( top_top @ ( set @ B ) ) )
= ( top_top @ ( set @ A ) ) ) ).
% vimage_UNIV
thf(fact_136_o__case__sum,axiom,
! [A: $tType,C: $tType,D: $tType,B: $tType,H: D > C,F: A > D,G3: B > D] :
( ( comp @ D @ C @ ( sum_sum @ A @ B ) @ H @ ( sum_case_sum @ A @ D @ B @ F @ G3 ) )
= ( sum_case_sum @ A @ C @ B @ ( comp @ D @ C @ A @ H @ F ) @ ( comp @ D @ C @ B @ H @ G3 ) ) ) ).
% o_case_sum
thf(fact_137_UNIV__sum,axiom,
! [A: $tType,B: $tType] :
( ( top_top @ ( set @ ( sum_sum @ A @ B ) ) )
= ( sup_sup @ ( set @ ( sum_sum @ A @ B ) ) @ ( image @ A @ ( sum_sum @ A @ B ) @ ( sum_Inl @ A @ B ) @ ( top_top @ ( set @ A ) ) ) @ ( image @ B @ ( sum_sum @ A @ B ) @ ( sum_Inr @ B @ A ) @ ( top_top @ ( set @ B ) ) ) ) ) ).
% UNIV_sum
thf(fact_138_Inf_OINF__image,axiom,
! [B: $tType,A: $tType,C: $tType,Inf: ( set @ A ) > A,G3: B > A,F: C > B,A4: set @ C] :
( ( Inf @ ( image @ B @ A @ G3 @ ( image @ C @ B @ F @ A4 ) ) )
= ( Inf @ ( image @ C @ A @ ( comp @ B @ A @ C @ G3 @ F ) @ A4 ) ) ) ).
% Inf.INF_image
thf(fact_139_Sup_OSUP__image,axiom,
! [B: $tType,A: $tType,C: $tType,Sup: ( set @ A ) > A,G3: B > A,F: C > B,A4: set @ C] :
( ( Sup @ ( image @ B @ A @ G3 @ ( image @ C @ B @ F @ A4 ) ) )
= ( Sup @ ( image @ C @ A @ ( comp @ B @ A @ C @ G3 @ F ) @ A4 ) ) ) ).
% Sup.SUP_image
thf(fact_140_range__eqI,axiom,
! [A: $tType,B: $tType,B2: A,F: B > A,X: B] :
( ( B2
= ( F @ X ) )
=> ( member @ A @ B2 @ ( image @ B @ A @ F @ ( top_top @ ( set @ B ) ) ) ) ) ).
% range_eqI
thf(fact_141_rangeI,axiom,
! [A: $tType,B: $tType,F: B > A,X: B] : ( member @ A @ ( F @ X ) @ ( image @ B @ A @ F @ ( top_top @ ( set @ B ) ) ) ) ).
% rangeI
thf(fact_142_surj__fun__eq,axiom,
! [B: $tType,C: $tType,A: $tType,F: B > A,X7: set @ B,G1: A > C,G22: A > C] :
( ( ( image @ B @ A @ F @ X7 )
= ( top_top @ ( set @ A ) ) )
=> ( ! [X3: B] :
( ( member @ B @ X3 @ X7 )
=> ( ( comp @ A @ C @ B @ G1 @ F @ X3 )
= ( comp @ A @ C @ B @ G22 @ F @ X3 ) ) )
=> ( G1 = G22 ) ) ) ).
% surj_fun_eq
thf(fact_143_Un__UNIV__left,axiom,
! [A: $tType,B3: set @ A] :
( ( sup_sup @ ( set @ A ) @ ( top_top @ ( set @ A ) ) @ B3 )
= ( top_top @ ( set @ A ) ) ) ).
% Un_UNIV_left
thf(fact_144_Un__UNIV__right,axiom,
! [A: $tType,A4: set @ A] :
( ( sup_sup @ ( set @ A ) @ A4 @ ( top_top @ ( set @ A ) ) )
= ( top_top @ ( set @ A ) ) ) ).
% Un_UNIV_right
thf(fact_145_UNIV__eq__I,axiom,
! [A: $tType,A4: set @ A] :
( ! [X3: A] : ( member @ A @ X3 @ A4 )
=> ( ( top_top @ ( set @ A ) )
= A4 ) ) ).
% UNIV_eq_I
thf(fact_146_UNIV__witness,axiom,
! [A: $tType] :
? [X3: A] : ( member @ A @ X3 @ ( top_top @ ( set @ A ) ) ) ).
% UNIV_witness
thf(fact_147_comp__cong,axiom,
! [C: $tType,B: $tType,D: $tType,A: $tType,E: $tType,F: B > A,G3: C > B,X: C,F5: D > A,G5: E > D,X8: E] :
( ( ( F @ ( G3 @ X ) )
= ( F5 @ ( G5 @ X8 ) ) )
=> ( ( comp @ B @ A @ C @ F @ G3 @ X )
= ( comp @ D @ A @ E @ F5 @ G5 @ X8 ) ) ) ).
% comp_cong
thf(fact_148_rewriteL__comp__comp,axiom,
! [C: $tType,B: $tType,A: $tType,D: $tType,F: C > B,G3: A > C,L: A > B,H: D > A] :
( ( ( comp @ C @ B @ A @ F @ G3 )
= L )
=> ( ( comp @ C @ B @ D @ F @ ( comp @ A @ C @ D @ G3 @ H ) )
= ( comp @ A @ B @ D @ L @ H ) ) ) ).
% rewriteL_comp_comp
thf(fact_149_rewriteR__comp__comp,axiom,
! [C: $tType,D: $tType,B: $tType,A: $tType,G3: C > B,H: A > C,R: A > B,F: B > D] :
( ( ( comp @ C @ B @ A @ G3 @ H )
= R )
=> ( ( comp @ C @ D @ A @ ( comp @ B @ D @ C @ F @ G3 ) @ H )
= ( comp @ B @ D @ A @ F @ R ) ) ) ).
% rewriteR_comp_comp
thf(fact_150_rewriteL__comp__comp2,axiom,
! [A: $tType,C: $tType,B: $tType,D: $tType,E: $tType,F: C > B,G3: A > C,L1: D > B,L2: A > D,H: E > A,R: E > D] :
( ( ( comp @ C @ B @ A @ F @ G3 )
= ( comp @ D @ B @ A @ L1 @ L2 ) )
=> ( ( ( comp @ A @ D @ E @ L2 @ H )
= R )
=> ( ( comp @ C @ B @ E @ F @ ( comp @ A @ C @ E @ G3 @ H ) )
= ( comp @ D @ B @ E @ L1 @ R ) ) ) ) ).
% rewriteL_comp_comp2
thf(fact_151_rewriteR__comp__comp2,axiom,
! [C: $tType,B: $tType,E: $tType,D: $tType,A: $tType,G3: C > B,H: A > C,R1: D > B,R22: A > D,F: B > E,L: D > E] :
( ( ( comp @ C @ B @ A @ G3 @ H )
= ( comp @ D @ B @ A @ R1 @ R22 ) )
=> ( ( ( comp @ B @ E @ D @ F @ R1 )
= L )
=> ( ( comp @ C @ E @ A @ ( comp @ B @ E @ C @ F @ G3 ) @ H )
= ( comp @ D @ E @ A @ L @ R22 ) ) ) ) ).
% rewriteR_comp_comp2
thf(fact_152_apsnd__compose,axiom,
! [C: $tType,B: $tType,D: $tType,A: $tType,F: C > B,G3: D > C,X: product_prod @ A @ D] :
( ( product_apsnd @ C @ B @ A @ F @ ( product_apsnd @ D @ C @ A @ G3 @ X ) )
= ( product_apsnd @ D @ B @ A @ ( comp @ C @ B @ D @ F @ G3 ) @ X ) ) ).
% apsnd_compose
thf(fact_153_case__sum__expand__Inr,axiom,
! [B: $tType,C: $tType,A: $tType,F: ( sum_sum @ A @ C ) > B,G3: A > B,X: sum_sum @ A @ C] :
( ( ( comp @ ( sum_sum @ A @ C ) @ B @ A @ F @ ( sum_Inl @ A @ C ) )
= G3 )
=> ( ( F @ X )
= ( sum_case_sum @ A @ B @ C @ G3 @ ( comp @ ( sum_sum @ A @ C ) @ B @ C @ F @ ( sum_Inr @ C @ A ) ) @ X ) ) ) ).
% case_sum_expand_Inr
thf(fact_154_case__sum__o__inj_I1_J,axiom,
! [C: $tType,B: $tType,A: $tType,F: A > B,G3: C > B] :
( ( comp @ ( sum_sum @ A @ C ) @ B @ A @ ( sum_case_sum @ A @ B @ C @ F @ G3 ) @ ( sum_Inl @ A @ C ) )
= F ) ).
% case_sum_o_inj(1)
thf(fact_155_case__sum__o__inj_I2_J,axiom,
! [A: $tType,B: $tType,C: $tType,F: A > B,G3: C > B] :
( ( comp @ ( sum_sum @ A @ C ) @ B @ C @ ( sum_case_sum @ A @ B @ C @ F @ G3 ) @ ( sum_Inr @ C @ A ) )
= G3 ) ).
% case_sum_o_inj(2)
thf(fact_156_surj__image__vimage__eq,axiom,
! [B: $tType,A: $tType,F: B > A,A4: set @ A] :
( ( ( image @ B @ A @ F @ ( top_top @ ( set @ B ) ) )
= ( top_top @ ( set @ A ) ) )
=> ( ( image @ B @ A @ F @ ( vimage @ B @ A @ F @ A4 ) )
= A4 ) ) ).
% surj_image_vimage_eq
thf(fact_157_comp__surj,axiom,
! [B: $tType,A: $tType,C: $tType,F: B > A,G3: A > C] :
( ( ( image @ B @ A @ F @ ( top_top @ ( set @ B ) ) )
= ( top_top @ ( set @ A ) ) )
=> ( ( ( image @ A @ C @ G3 @ ( top_top @ ( set @ A ) ) )
= ( top_top @ ( set @ C ) ) )
=> ( ( image @ B @ C @ ( comp @ A @ C @ B @ G3 @ F ) @ ( top_top @ ( set @ B ) ) )
= ( top_top @ ( set @ C ) ) ) ) ) ).
% comp_surj
thf(fact_158_top__set__def,axiom,
! [A: $tType] :
( ( top_top @ ( set @ A ) )
= ( collect @ A @ ( top_top @ ( A > $o ) ) ) ) ).
% top_set_def
thf(fact_159_image__eq__imp__comp,axiom,
! [B: $tType,A: $tType,D: $tType,C: $tType,F: B > A,A4: set @ B,G3: C > A,B3: set @ C,H: A > D] :
( ( ( image @ B @ A @ F @ A4 )
= ( image @ C @ A @ G3 @ B3 ) )
=> ( ( image @ B @ D @ ( comp @ A @ D @ B @ H @ F ) @ A4 )
= ( image @ C @ D @ ( comp @ A @ D @ C @ H @ G3 ) @ B3 ) ) ) ).
% image_eq_imp_comp
thf(fact_160_image__comp,axiom,
! [B: $tType,A: $tType,C: $tType,F: B > A,G3: C > B,R: set @ C] :
( ( image @ B @ A @ F @ ( image @ C @ B @ G3 @ R ) )
= ( image @ C @ A @ ( comp @ B @ A @ C @ F @ G3 ) @ R ) ) ).
% image_comp
thf(fact_161_surj__def,axiom,
! [B: $tType,A: $tType,F: B > A] :
( ( ( image @ B @ A @ F @ ( top_top @ ( set @ B ) ) )
= ( top_top @ ( set @ A ) ) )
= ( ! [Y4: A] :
? [X4: B] :
( Y4
= ( F @ X4 ) ) ) ) ).
% surj_def
thf(fact_162_surjI,axiom,
! [B: $tType,A: $tType,G3: B > A,F: A > B] :
( ! [X3: A] :
( ( G3 @ ( F @ X3 ) )
= X3 )
=> ( ( image @ B @ A @ G3 @ ( top_top @ ( set @ B ) ) )
= ( top_top @ ( set @ A ) ) ) ) ).
% surjI
thf(fact_163_surjE,axiom,
! [A: $tType,B: $tType,F: B > A,Y: A] :
( ( ( image @ B @ A @ F @ ( top_top @ ( set @ B ) ) )
= ( top_top @ ( set @ A ) ) )
=> ~ ! [X3: B] :
( Y
!= ( F @ X3 ) ) ) ).
% surjE
thf(fact_164_surjD,axiom,
! [A: $tType,B: $tType,F: B > A,Y: A] :
( ( ( image @ B @ A @ F @ ( top_top @ ( set @ B ) ) )
= ( top_top @ ( set @ A ) ) )
=> ? [X3: B] :
( Y
= ( F @ X3 ) ) ) ).
% surjD
thf(fact_165_set_Ocomp,axiom,
! [A: $tType,B: $tType,C: $tType,F: C > B,G3: B > A] :
( ( comp @ ( set @ B ) @ ( set @ C ) @ ( set @ A ) @ ( vimage @ C @ B @ F ) @ ( vimage @ B @ A @ G3 ) )
= ( vimage @ C @ A @ ( comp @ B @ A @ C @ G3 @ F ) ) ) ).
% set.comp
thf(fact_166_set_Ocompositionality,axiom,
! [C: $tType,B: $tType,A: $tType,F: C > B,G3: B > A,Set: set @ A] :
( ( vimage @ C @ B @ F @ ( vimage @ B @ A @ G3 @ Set ) )
= ( vimage @ C @ A @ ( comp @ B @ A @ C @ G3 @ F ) @ Set ) ) ).
% set.compositionality
thf(fact_167_vimage__comp,axiom,
! [A: $tType,B: $tType,C: $tType,F: A > B,G3: B > C,X: set @ C] :
( ( vimage @ A @ B @ F @ ( vimage @ B @ C @ G3 @ X ) )
= ( vimage @ A @ C @ ( comp @ B @ C @ A @ G3 @ F ) @ X ) ) ).
% vimage_comp
thf(fact_168_fun_Oinj__map__strong,axiom,
! [B: $tType,A: $tType,D: $tType,X: D > A,Xa: D > A,F: A > B,Fa: A > B] :
( ! [Z2: A,Za: A] :
( ( member @ A @ Z2 @ ( image @ D @ A @ X @ ( top_top @ ( set @ D ) ) ) )
=> ( ( member @ A @ Za @ ( image @ D @ A @ Xa @ ( top_top @ ( set @ D ) ) ) )
=> ( ( ( F @ Z2 )
= ( Fa @ Za ) )
=> ( Z2 = Za ) ) ) )
=> ( ( ( comp @ A @ B @ D @ F @ X )
= ( comp @ A @ B @ D @ Fa @ Xa ) )
=> ( X = Xa ) ) ) ).
% fun.inj_map_strong
thf(fact_169_fun_Omap__cong0,axiom,
! [B: $tType,A: $tType,D: $tType,X: D > A,F: A > B,G3: A > B] :
( ! [Z2: A] :
( ( member @ A @ Z2 @ ( image @ D @ A @ X @ ( top_top @ ( set @ D ) ) ) )
=> ( ( F @ Z2 )
= ( G3 @ Z2 ) ) )
=> ( ( comp @ A @ B @ D @ F @ X )
= ( comp @ A @ B @ D @ G3 @ X ) ) ) ).
% fun.map_cong0
thf(fact_170_fun_Omap__cong,axiom,
! [B: $tType,A: $tType,D: $tType,X: D > A,Ya: D > A,F: A > B,G3: A > B] :
( ( X = Ya )
=> ( ! [Z2: A] :
( ( member @ A @ Z2 @ ( image @ D @ A @ Ya @ ( top_top @ ( set @ D ) ) ) )
=> ( ( F @ Z2 )
= ( G3 @ Z2 ) ) )
=> ( ( comp @ A @ B @ D @ F @ X )
= ( comp @ A @ B @ D @ G3 @ Ya ) ) ) ) ).
% fun.map_cong
thf(fact_171_top__conj_I2_J,axiom,
! [A: $tType,P: $o,X: A] :
( ( P
& ( top_top @ ( A > $o ) @ X ) )
= P ) ).
% top_conj(2)
thf(fact_172_top__conj_I1_J,axiom,
! [A: $tType,X: A,P: $o] :
( ( ( top_top @ ( A > $o ) @ X )
& P )
= P ) ).
% top_conj(1)
thf(fact_173_fun_Oset__map,axiom,
! [B: $tType,A: $tType,D: $tType,F: A > B,V: D > A] :
( ( image @ D @ B @ ( comp @ A @ B @ D @ F @ V ) @ ( top_top @ ( set @ D ) ) )
= ( image @ A @ B @ F @ ( image @ D @ A @ V @ ( top_top @ ( set @ D ) ) ) ) ) ).
% fun.set_map
thf(fact_174_Plus__def,axiom,
! [B: $tType,A: $tType] :
( ( sum_Plus @ A @ B )
= ( ^ [A5: set @ A,B5: set @ B] : ( sup_sup @ ( set @ ( sum_sum @ A @ B ) ) @ ( image @ A @ ( sum_sum @ A @ B ) @ ( sum_Inl @ A @ B ) @ A5 ) @ ( image @ B @ ( sum_sum @ A @ B ) @ ( sum_Inr @ B @ A ) @ B5 ) ) ) ) ).
% Plus_def
thf(fact_175_map__prod__surj,axiom,
! [A: $tType,C: $tType,D: $tType,B: $tType,F: A > B,G3: C > D] :
( ( ( image @ A @ B @ F @ ( top_top @ ( set @ A ) ) )
= ( top_top @ ( set @ B ) ) )
=> ( ( ( image @ C @ D @ G3 @ ( top_top @ ( set @ C ) ) )
= ( top_top @ ( set @ D ) ) )
=> ( ( image @ ( product_prod @ A @ C ) @ ( product_prod @ B @ D ) @ ( product_map_prod @ A @ B @ C @ D @ F @ G3 ) @ ( top_top @ ( set @ ( product_prod @ A @ C ) ) ) )
= ( top_top @ ( set @ ( product_prod @ B @ D ) ) ) ) ) ) ).
% map_prod_surj
thf(fact_176_type__copy__set__map0,axiom,
! [A: $tType,B: $tType,D: $tType,E: $tType,C: $tType,F2: $tType,Rep: A > B,Abs: B > A,S3: B > ( set @ D ),M: C > B,F: E > D,S4: C > ( set @ E ),G3: F2 > C] :
( ( type_definition @ A @ B @ Rep @ Abs @ ( top_top @ ( set @ B ) ) )
=> ( ( ( comp @ B @ ( set @ D ) @ C @ S3 @ M )
= ( comp @ ( set @ E ) @ ( set @ D ) @ C @ ( image @ E @ D @ F ) @ S4 ) )
=> ( ( comp @ A @ ( set @ D ) @ F2 @ ( comp @ B @ ( set @ D ) @ A @ S3 @ Rep ) @ ( comp @ C @ A @ F2 @ ( comp @ B @ A @ C @ Abs @ M ) @ G3 ) )
= ( comp @ ( set @ E ) @ ( set @ D ) @ F2 @ ( image @ E @ D @ F ) @ ( comp @ C @ ( set @ E ) @ F2 @ S4 @ G3 ) ) ) ) ) ).
% type_copy_set_map0
thf(fact_177_map__prod__simp,axiom,
! [C: $tType,A: $tType,B: $tType,D: $tType,F: C > A,G3: D > B,A2: C,B2: D] :
( ( product_map_prod @ C @ A @ D @ B @ F @ G3 @ ( product_Pair @ C @ D @ A2 @ B2 ) )
= ( product_Pair @ A @ B @ ( F @ A2 ) @ ( G3 @ B2 ) ) ) ).
% map_prod_simp
thf(fact_178_InrI,axiom,
! [B: $tType,A: $tType,B2: A,B3: set @ A,A4: set @ B] :
( ( member @ A @ B2 @ B3 )
=> ( member @ ( sum_sum @ B @ A ) @ ( sum_Inr @ A @ B @ B2 ) @ ( sum_Plus @ B @ A @ A4 @ B3 ) ) ) ).
% InrI
thf(fact_179_InlI,axiom,
! [A: $tType,B: $tType,A2: A,A4: set @ A,B3: set @ B] :
( ( member @ A @ A2 @ A4 )
=> ( member @ ( sum_sum @ A @ B ) @ ( sum_Inl @ A @ B @ A2 ) @ ( sum_Plus @ A @ B @ A4 @ B3 ) ) ) ).
% InlI
thf(fact_180_map__prod__imageI,axiom,
! [D: $tType,C: $tType,B: $tType,A: $tType,A2: A,B2: B,R2: set @ ( product_prod @ A @ B ),F: A > C,G3: B > D] :
( ( member @ ( product_prod @ A @ B ) @ ( product_Pair @ A @ B @ A2 @ B2 ) @ R2 )
=> ( member @ ( product_prod @ C @ D ) @ ( product_Pair @ C @ D @ ( F @ A2 ) @ ( G3 @ B2 ) ) @ ( image @ ( product_prod @ A @ B ) @ ( product_prod @ C @ D ) @ ( product_map_prod @ A @ C @ B @ D @ F @ G3 ) @ R2 ) ) ) ).
% map_prod_imageI
thf(fact_181_UNIV__Plus__UNIV,axiom,
! [B: $tType,A: $tType] :
( ( sum_Plus @ A @ B @ ( top_top @ ( set @ A ) ) @ ( top_top @ ( set @ B ) ) )
= ( top_top @ ( set @ ( sum_sum @ A @ B ) ) ) ) ).
% UNIV_Plus_UNIV
thf(fact_182_map__prod_Ocomp,axiom,
! [A: $tType,C: $tType,E: $tType,F2: $tType,D: $tType,B: $tType,F: C > E,G3: D > F2,H: A > C,I: B > D] :
( ( comp @ ( product_prod @ C @ D ) @ ( product_prod @ E @ F2 ) @ ( product_prod @ A @ B ) @ ( product_map_prod @ C @ E @ D @ F2 @ F @ G3 ) @ ( product_map_prod @ A @ C @ B @ D @ H @ I ) )
= ( product_map_prod @ A @ E @ B @ F2 @ ( comp @ C @ E @ A @ F @ H ) @ ( comp @ D @ F2 @ B @ G3 @ I ) ) ) ).
% map_prod.comp
thf(fact_183_map__prod__compose,axiom,
! [D: $tType,C: $tType,A: $tType,E: $tType,F2: $tType,B: $tType,F1: E > C,F22: A > E,G1: F2 > D,G22: B > F2] :
( ( product_map_prod @ A @ C @ B @ D @ ( comp @ E @ C @ A @ F1 @ F22 ) @ ( comp @ F2 @ D @ B @ G1 @ G22 ) )
= ( comp @ ( product_prod @ E @ F2 ) @ ( product_prod @ C @ D ) @ ( product_prod @ A @ B ) @ ( product_map_prod @ E @ C @ F2 @ D @ F1 @ G1 ) @ ( product_map_prod @ A @ E @ B @ F2 @ F22 @ G22 ) ) ) ).
% map_prod_compose
thf(fact_184_map__prod_Ocompositionality,axiom,
! [D: $tType,F2: $tType,E: $tType,C: $tType,B: $tType,A: $tType,F: C > E,G3: D > F2,H: A > C,I: B > D,Prod: product_prod @ A @ B] :
( ( product_map_prod @ C @ E @ D @ F2 @ F @ G3 @ ( product_map_prod @ A @ C @ B @ D @ H @ I @ Prod ) )
= ( product_map_prod @ A @ E @ B @ F2 @ ( comp @ C @ E @ A @ F @ H ) @ ( comp @ D @ F2 @ B @ G3 @ I ) @ Prod ) ) ).
% map_prod.compositionality
thf(fact_185_type__copy__obj__one__point__absE,axiom,
! [A: $tType,B: $tType,Rep: A > B,Abs: B > A,S: A] :
( ( type_definition @ A @ B @ Rep @ Abs @ ( top_top @ ( set @ B ) ) )
=> ~ ! [X3: B] :
( S
!= ( Abs @ X3 ) ) ) ).
% type_copy_obj_one_point_absE
thf(fact_186_type__copy__map__comp0__undo,axiom,
! [E: $tType,A: $tType,C: $tType,B: $tType,D: $tType,F2: $tType,Rep: A > B,Abs: B > A,Rep2: C > D,Abs2: D > C,Rep3: E > F2,Abs3: F2 > E,M: F2 > D,M1: B > D,M2: F2 > B] :
( ( type_definition @ A @ B @ Rep @ Abs @ ( top_top @ ( set @ B ) ) )
=> ( ( type_definition @ C @ D @ Rep2 @ Abs2 @ ( top_top @ ( set @ D ) ) )
=> ( ( type_definition @ E @ F2 @ Rep3 @ Abs3 @ ( top_top @ ( set @ F2 ) ) )
=> ( ( ( comp @ F2 @ C @ E @ ( comp @ D @ C @ F2 @ Abs2 @ M ) @ Rep3 )
= ( comp @ A @ C @ E @ ( comp @ B @ C @ A @ ( comp @ D @ C @ B @ Abs2 @ M1 ) @ Rep ) @ ( comp @ F2 @ A @ E @ ( comp @ B @ A @ F2 @ Abs @ M2 ) @ Rep3 ) ) )
=> ( ( comp @ B @ D @ F2 @ M1 @ M2 )
= M ) ) ) ) ) ).
% type_copy_map_comp0_undo
thf(fact_187_PlusE,axiom,
! [A: $tType,B: $tType,U: sum_sum @ A @ B,A4: set @ A,B3: set @ B] :
( ( member @ ( sum_sum @ A @ B ) @ U @ ( sum_Plus @ A @ B @ A4 @ B3 ) )
=> ( ! [X3: A] :
( ( member @ A @ X3 @ A4 )
=> ( U
!= ( sum_Inl @ A @ B @ X3 ) ) )
=> ~ ! [Y3: B] :
( ( member @ B @ Y3 @ B3 )
=> ( U
!= ( sum_Inr @ B @ A @ Y3 ) ) ) ) ) ).
% PlusE
thf(fact_188_prod__fun__imageE,axiom,
! [B: $tType,A: $tType,D: $tType,C: $tType,C2: product_prod @ A @ B,F: C > A,G3: D > B,R2: set @ ( product_prod @ C @ D )] :
( ( member @ ( product_prod @ A @ B ) @ C2 @ ( image @ ( product_prod @ C @ D ) @ ( product_prod @ A @ B ) @ ( product_map_prod @ C @ A @ D @ B @ F @ G3 ) @ R2 ) )
=> ~ ! [X3: C,Y3: D] :
( ( C2
= ( product_Pair @ A @ B @ ( F @ X3 ) @ ( G3 @ Y3 ) ) )
=> ~ ( member @ ( product_prod @ C @ D ) @ ( product_Pair @ C @ D @ X3 @ Y3 ) @ R2 ) ) ) ).
% prod_fun_imageE
thf(fact_189_type__definition_OAbs__image,axiom,
! [A: $tType,B: $tType,Rep: B > A,Abs: A > B,A4: set @ A] :
( ( type_definition @ B @ A @ Rep @ Abs @ A4 )
=> ( ( image @ A @ B @ Abs @ A4 )
= ( top_top @ ( set @ B ) ) ) ) ).
% type_definition.Abs_image
thf(fact_190_type__definition_ORep__range,axiom,
! [B: $tType,A: $tType,Rep: B > A,Abs: A > B,A4: set @ A] :
( ( type_definition @ B @ A @ Rep @ Abs @ A4 )
=> ( ( image @ B @ A @ Rep @ ( top_top @ ( set @ B ) ) )
= A4 ) ) ).
% type_definition.Rep_range
thf(fact_191_image__vimage__eq,axiom,
! [A: $tType,B: $tType,F: B > A,A4: set @ A] :
( ( image @ B @ A @ F @ ( vimage @ B @ A @ F @ A4 ) )
= ( inf_inf @ ( set @ A ) @ A4 @ ( image @ B @ A @ F @ ( top_top @ ( set @ B ) ) ) ) ) ).
% image_vimage_eq
thf(fact_192_inf__apply,axiom,
! [B: $tType,A: $tType] :
( ( semilattice_inf @ B @ ( type2 @ B ) )
=> ( ( inf_inf @ ( A > B ) )
= ( ^ [F4: A > B,G4: A > B,X4: A] : ( inf_inf @ B @ ( F4 @ X4 ) @ ( G4 @ X4 ) ) ) ) ) ).
% inf_apply
thf(fact_193_inf_Oidem,axiom,
! [A: $tType] :
( ( semilattice_inf @ A @ ( type2 @ A ) )
=> ! [A2: A] :
( ( inf_inf @ A @ A2 @ A2 )
= A2 ) ) ).
% inf.idem
thf(fact_194_inf__idem,axiom,
! [A: $tType] :
( ( semilattice_inf @ A @ ( type2 @ A ) )
=> ! [X: A] :
( ( inf_inf @ A @ X @ X )
= X ) ) ).
% inf_idem
thf(fact_195_inf_Oleft__idem,axiom,
! [A: $tType] :
( ( semilattice_inf @ A @ ( type2 @ A ) )
=> ! [A2: A,B2: A] :
( ( inf_inf @ A @ A2 @ ( inf_inf @ A @ A2 @ B2 ) )
= ( inf_inf @ A @ A2 @ B2 ) ) ) ).
% inf.left_idem
thf(fact_196_inf__left__idem,axiom,
! [A: $tType] :
( ( semilattice_inf @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A] :
( ( inf_inf @ A @ X @ ( inf_inf @ A @ X @ Y ) )
= ( inf_inf @ A @ X @ Y ) ) ) ).
% inf_left_idem
thf(fact_197_inf_Oright__idem,axiom,
! [A: $tType] :
( ( semilattice_inf @ A @ ( type2 @ A ) )
=> ! [A2: A,B2: A] :
( ( inf_inf @ A @ ( inf_inf @ A @ A2 @ B2 ) @ B2 )
= ( inf_inf @ A @ A2 @ B2 ) ) ) ).
% inf.right_idem
thf(fact_198_inf__right__idem,axiom,
! [A: $tType] :
( ( semilattice_inf @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A] :
( ( inf_inf @ A @ ( inf_inf @ A @ X @ Y ) @ Y )
= ( inf_inf @ A @ X @ Y ) ) ) ).
% inf_right_idem
thf(fact_199_IntI,axiom,
! [A: $tType,C2: A,A4: set @ A,B3: set @ A] :
( ( member @ A @ C2 @ A4 )
=> ( ( member @ A @ C2 @ B3 )
=> ( member @ A @ C2 @ ( inf_inf @ ( set @ A ) @ A4 @ B3 ) ) ) ) ).
% IntI
thf(fact_200_Int__iff,axiom,
! [A: $tType,C2: A,A4: set @ A,B3: set @ A] :
( ( member @ A @ C2 @ ( inf_inf @ ( set @ A ) @ A4 @ B3 ) )
= ( ( member @ A @ C2 @ A4 )
& ( member @ A @ C2 @ B3 ) ) ) ).
% Int_iff
thf(fact_201_sup__inf__absorb,axiom,
! [A: $tType] :
( ( lattice @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A] :
( ( sup_sup @ A @ X @ ( inf_inf @ A @ X @ Y ) )
= X ) ) ).
% sup_inf_absorb
thf(fact_202_inf__sup__absorb,axiom,
! [A: $tType] :
( ( lattice @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A] :
( ( inf_inf @ A @ X @ ( sup_sup @ A @ X @ Y ) )
= X ) ) ).
% inf_sup_absorb
thf(fact_203_inf__top_Oright__neutral,axiom,
! [A: $tType] :
( ( bounde1561333602nf_top @ A @ ( type2 @ A ) )
=> ! [A2: A] :
( ( inf_inf @ A @ A2 @ ( top_top @ A ) )
= A2 ) ) ).
% inf_top.right_neutral
thf(fact_204_inf__top_Oleft__neutral,axiom,
! [A: $tType] :
( ( bounde1561333602nf_top @ A @ ( type2 @ A ) )
=> ! [A2: A] :
( ( inf_inf @ A @ ( top_top @ A ) @ A2 )
= A2 ) ) ).
% inf_top.left_neutral
thf(fact_205_inf__eq__top__iff,axiom,
! [A: $tType] :
( ( bounded_lattice_top @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A] :
( ( ( inf_inf @ A @ X @ Y )
= ( top_top @ A ) )
= ( ( X
= ( top_top @ A ) )
& ( Y
= ( top_top @ A ) ) ) ) ) ).
% inf_eq_top_iff
thf(fact_206_Int__UNIV,axiom,
! [A: $tType,A4: set @ A,B3: set @ A] :
( ( ( inf_inf @ ( set @ A ) @ A4 @ B3 )
= ( top_top @ ( set @ A ) ) )
= ( ( A4
= ( top_top @ ( set @ A ) ) )
& ( B3
= ( top_top @ ( set @ A ) ) ) ) ) ).
% Int_UNIV
thf(fact_207_vimage__Int,axiom,
! [A: $tType,B: $tType,F: A > B,A4: set @ B,B3: set @ B] :
( ( vimage @ A @ B @ F @ ( inf_inf @ ( set @ B ) @ A4 @ B3 ) )
= ( inf_inf @ ( set @ A ) @ ( vimage @ A @ B @ F @ A4 ) @ ( vimage @ A @ B @ F @ B3 ) ) ) ).
% vimage_Int
thf(fact_208_sup__inf__distrib2,axiom,
! [A: $tType] :
( ( distrib_lattice @ A @ ( type2 @ A ) )
=> ! [Y: A,Z: A,X: A] :
( ( sup_sup @ A @ ( inf_inf @ A @ Y @ Z ) @ X )
= ( inf_inf @ A @ ( sup_sup @ A @ Y @ X ) @ ( sup_sup @ A @ Z @ X ) ) ) ) ).
% sup_inf_distrib2
thf(fact_209_sup__inf__distrib1,axiom,
! [A: $tType] :
( ( distrib_lattice @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A,Z: A] :
( ( sup_sup @ A @ X @ ( inf_inf @ A @ Y @ Z ) )
= ( inf_inf @ A @ ( sup_sup @ A @ X @ Y ) @ ( sup_sup @ A @ X @ Z ) ) ) ) ).
% sup_inf_distrib1
thf(fact_210_inf__sup__distrib2,axiom,
! [A: $tType] :
( ( distrib_lattice @ A @ ( type2 @ A ) )
=> ! [Y: A,Z: A,X: A] :
( ( inf_inf @ A @ ( sup_sup @ A @ Y @ Z ) @ X )
= ( sup_sup @ A @ ( inf_inf @ A @ Y @ X ) @ ( inf_inf @ A @ Z @ X ) ) ) ) ).
% inf_sup_distrib2
thf(fact_211_inf__sup__distrib1,axiom,
! [A: $tType] :
( ( distrib_lattice @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A,Z: A] :
( ( inf_inf @ A @ X @ ( sup_sup @ A @ Y @ Z ) )
= ( sup_sup @ A @ ( inf_inf @ A @ X @ Y ) @ ( inf_inf @ A @ X @ Z ) ) ) ) ).
% inf_sup_distrib1
thf(fact_212_distrib__imp2,axiom,
! [A: $tType] :
( ( lattice @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A,Z: A] :
( ! [X3: A,Y3: A,Z2: A] :
( ( sup_sup @ A @ X3 @ ( inf_inf @ A @ Y3 @ Z2 ) )
= ( inf_inf @ A @ ( sup_sup @ A @ X3 @ Y3 ) @ ( sup_sup @ A @ X3 @ Z2 ) ) )
=> ( ( inf_inf @ A @ X @ ( sup_sup @ A @ Y @ Z ) )
= ( sup_sup @ A @ ( inf_inf @ A @ X @ Y ) @ ( inf_inf @ A @ X @ Z ) ) ) ) ) ).
% distrib_imp2
thf(fact_213_distrib__imp1,axiom,
! [A: $tType] :
( ( lattice @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A,Z: A] :
( ! [X3: A,Y3: A,Z2: A] :
( ( inf_inf @ A @ X3 @ ( sup_sup @ A @ Y3 @ Z2 ) )
= ( sup_sup @ A @ ( inf_inf @ A @ X3 @ Y3 ) @ ( inf_inf @ A @ X3 @ Z2 ) ) )
=> ( ( sup_sup @ A @ X @ ( inf_inf @ A @ Y @ Z ) )
= ( inf_inf @ A @ ( sup_sup @ A @ X @ Y ) @ ( sup_sup @ A @ X @ Z ) ) ) ) ) ).
% distrib_imp1
thf(fact_214_Un__Int__distrib2,axiom,
! [A: $tType,B3: set @ A,C3: set @ A,A4: set @ A] :
( ( sup_sup @ ( set @ A ) @ ( inf_inf @ ( set @ A ) @ B3 @ C3 ) @ A4 )
= ( inf_inf @ ( set @ A ) @ ( sup_sup @ ( set @ A ) @ B3 @ A4 ) @ ( sup_sup @ ( set @ A ) @ C3 @ A4 ) ) ) ).
% Un_Int_distrib2
thf(fact_215_Int__Un__distrib2,axiom,
! [A: $tType,B3: set @ A,C3: set @ A,A4: set @ A] :
( ( inf_inf @ ( set @ A ) @ ( sup_sup @ ( set @ A ) @ B3 @ C3 ) @ A4 )
= ( sup_sup @ ( set @ A ) @ ( inf_inf @ ( set @ A ) @ B3 @ A4 ) @ ( inf_inf @ ( set @ A ) @ C3 @ A4 ) ) ) ).
% Int_Un_distrib2
thf(fact_216_Un__Int__distrib,axiom,
! [A: $tType,A4: set @ A,B3: set @ A,C3: set @ A] :
( ( sup_sup @ ( set @ A ) @ A4 @ ( inf_inf @ ( set @ A ) @ B3 @ C3 ) )
= ( inf_inf @ ( set @ A ) @ ( sup_sup @ ( set @ A ) @ A4 @ B3 ) @ ( sup_sup @ ( set @ A ) @ A4 @ C3 ) ) ) ).
% Un_Int_distrib
thf(fact_217_Int__Un__distrib,axiom,
! [A: $tType,A4: set @ A,B3: set @ A,C3: set @ A] :
( ( inf_inf @ ( set @ A ) @ A4 @ ( sup_sup @ ( set @ A ) @ B3 @ C3 ) )
= ( sup_sup @ ( set @ A ) @ ( inf_inf @ ( set @ A ) @ A4 @ B3 ) @ ( inf_inf @ ( set @ A ) @ A4 @ C3 ) ) ) ).
% Int_Un_distrib
thf(fact_218_Un__Int__crazy,axiom,
! [A: $tType,A4: set @ A,B3: set @ A,C3: set @ A] :
( ( sup_sup @ ( set @ A ) @ ( sup_sup @ ( set @ A ) @ ( inf_inf @ ( set @ A ) @ A4 @ B3 ) @ ( inf_inf @ ( set @ A ) @ B3 @ C3 ) ) @ ( inf_inf @ ( set @ A ) @ C3 @ A4 ) )
= ( inf_inf @ ( set @ A ) @ ( inf_inf @ ( set @ A ) @ ( sup_sup @ ( set @ A ) @ A4 @ B3 ) @ ( sup_sup @ ( set @ A ) @ B3 @ C3 ) ) @ ( sup_sup @ ( set @ A ) @ C3 @ A4 ) ) ) ).
% Un_Int_crazy
thf(fact_219_vimage__inter__cong,axiom,
! [B: $tType,A: $tType,S3: set @ A,F: A > B,G3: A > B,Y: set @ B] :
( ! [W: A] :
( ( member @ A @ W @ S3 )
=> ( ( F @ W )
= ( G3 @ W ) ) )
=> ( ( inf_inf @ ( set @ A ) @ ( vimage @ A @ B @ F @ Y ) @ S3 )
= ( inf_inf @ ( set @ A ) @ ( vimage @ A @ B @ G3 @ Y ) @ S3 ) ) ) ).
% vimage_inter_cong
thf(fact_220_IntE,axiom,
! [A: $tType,C2: A,A4: set @ A,B3: set @ A] :
( ( member @ A @ C2 @ ( inf_inf @ ( set @ A ) @ A4 @ B3 ) )
=> ~ ( ( member @ A @ C2 @ A4 )
=> ~ ( member @ A @ C2 @ B3 ) ) ) ).
% IntE
thf(fact_221_IntD1,axiom,
! [A: $tType,C2: A,A4: set @ A,B3: set @ A] :
( ( member @ A @ C2 @ ( inf_inf @ ( set @ A ) @ A4 @ B3 ) )
=> ( member @ A @ C2 @ A4 ) ) ).
% IntD1
thf(fact_222_IntD2,axiom,
! [A: $tType,C2: A,A4: set @ A,B3: set @ A] :
( ( member @ A @ C2 @ ( inf_inf @ ( set @ A ) @ A4 @ B3 ) )
=> ( member @ A @ C2 @ B3 ) ) ).
% IntD2
thf(fact_223_Int__assoc,axiom,
! [A: $tType,A4: set @ A,B3: set @ A,C3: set @ A] :
( ( inf_inf @ ( set @ A ) @ ( inf_inf @ ( set @ A ) @ A4 @ B3 ) @ C3 )
= ( inf_inf @ ( set @ A ) @ A4 @ ( inf_inf @ ( set @ A ) @ B3 @ C3 ) ) ) ).
% Int_assoc
thf(fact_224_Int__absorb,axiom,
! [A: $tType,A4: set @ A] :
( ( inf_inf @ ( set @ A ) @ A4 @ A4 )
= A4 ) ).
% Int_absorb
thf(fact_225_Int__commute,axiom,
! [A: $tType] :
( ( inf_inf @ ( set @ A ) )
= ( ^ [A5: set @ A,B5: set @ A] : ( inf_inf @ ( set @ A ) @ B5 @ A5 ) ) ) ).
% Int_commute
thf(fact_226_Int__left__absorb,axiom,
! [A: $tType,A4: set @ A,B3: set @ A] :
( ( inf_inf @ ( set @ A ) @ A4 @ ( inf_inf @ ( set @ A ) @ A4 @ B3 ) )
= ( inf_inf @ ( set @ A ) @ A4 @ B3 ) ) ).
% Int_left_absorb
thf(fact_227_Int__left__commute,axiom,
! [A: $tType,A4: set @ A,B3: set @ A,C3: set @ A] :
( ( inf_inf @ ( set @ A ) @ A4 @ ( inf_inf @ ( set @ A ) @ B3 @ C3 ) )
= ( inf_inf @ ( set @ A ) @ B3 @ ( inf_inf @ ( set @ A ) @ A4 @ C3 ) ) ) ).
% Int_left_commute
thf(fact_228_inf__sup__aci_I4_J,axiom,
! [A: $tType] :
( ( lattice @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A] :
( ( inf_inf @ A @ X @ ( inf_inf @ A @ X @ Y ) )
= ( inf_inf @ A @ X @ Y ) ) ) ).
% inf_sup_aci(4)
thf(fact_229_inf__sup__aci_I3_J,axiom,
! [A: $tType] :
( ( lattice @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A,Z: A] :
( ( inf_inf @ A @ X @ ( inf_inf @ A @ Y @ Z ) )
= ( inf_inf @ A @ Y @ ( inf_inf @ A @ X @ Z ) ) ) ) ).
% inf_sup_aci(3)
thf(fact_230_inf__sup__aci_I2_J,axiom,
! [A: $tType] :
( ( lattice @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A,Z: A] :
( ( inf_inf @ A @ ( inf_inf @ A @ X @ Y ) @ Z )
= ( inf_inf @ A @ X @ ( inf_inf @ A @ Y @ Z ) ) ) ) ).
% inf_sup_aci(2)
thf(fact_231_inf__sup__aci_I1_J,axiom,
! [A: $tType] :
( ( lattice @ A @ ( type2 @ A ) )
=> ( ( inf_inf @ A )
= ( ^ [X4: A,Y4: A] : ( inf_inf @ A @ Y4 @ X4 ) ) ) ) ).
% inf_sup_aci(1)
thf(fact_232_inf__fun__def,axiom,
! [B: $tType,A: $tType] :
( ( semilattice_inf @ B @ ( type2 @ B ) )
=> ( ( inf_inf @ ( A > B ) )
= ( ^ [F4: A > B,G4: A > B,X4: A] : ( inf_inf @ B @ ( F4 @ X4 ) @ ( G4 @ X4 ) ) ) ) ) ).
% inf_fun_def
thf(fact_233_inf_Oassoc,axiom,
! [A: $tType] :
( ( semilattice_inf @ A @ ( type2 @ A ) )
=> ! [A2: A,B2: A,C2: A] :
( ( inf_inf @ A @ ( inf_inf @ A @ A2 @ B2 ) @ C2 )
= ( inf_inf @ A @ A2 @ ( inf_inf @ A @ B2 @ C2 ) ) ) ) ).
% inf.assoc
thf(fact_234_inf__assoc,axiom,
! [A: $tType] :
( ( semilattice_inf @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A,Z: A] :
( ( inf_inf @ A @ ( inf_inf @ A @ X @ Y ) @ Z )
= ( inf_inf @ A @ X @ ( inf_inf @ A @ Y @ Z ) ) ) ) ).
% inf_assoc
thf(fact_235_inf_Ocommute,axiom,
! [A: $tType] :
( ( semilattice_inf @ A @ ( type2 @ A ) )
=> ( ( inf_inf @ A )
= ( ^ [A7: A,B7: A] : ( inf_inf @ A @ B7 @ A7 ) ) ) ) ).
% inf.commute
thf(fact_236_inf__commute,axiom,
! [A: $tType] :
( ( semilattice_inf @ A @ ( type2 @ A ) )
=> ( ( inf_inf @ A )
= ( ^ [X4: A,Y4: A] : ( inf_inf @ A @ Y4 @ X4 ) ) ) ) ).
% inf_commute
thf(fact_237_inf_Oleft__commute,axiom,
! [A: $tType] :
( ( semilattice_inf @ A @ ( type2 @ A ) )
=> ! [B2: A,A2: A,C2: A] :
( ( inf_inf @ A @ B2 @ ( inf_inf @ A @ A2 @ C2 ) )
= ( inf_inf @ A @ A2 @ ( inf_inf @ A @ B2 @ C2 ) ) ) ) ).
% inf.left_commute
thf(fact_238_inf__left__commute,axiom,
! [A: $tType] :
( ( semilattice_inf @ A @ ( type2 @ A ) )
=> ! [X: A,Y: A,Z: A] :
( ( inf_inf @ A @ X @ ( inf_inf @ A @ Y @ Z ) )
= ( inf_inf @ A @ Y @ ( inf_inf @ A @ X @ Z ) ) ) ) ).
% inf_left_commute
thf(fact_239_inf__top__right,axiom,
! [A: $tType] :
( ( bounded_lattice_top @ A @ ( type2 @ A ) )
=> ! [X: A] :
( ( inf_inf @ A @ X @ ( top_top @ A ) )
= X ) ) ).
% inf_top_right
thf(fact_240_inf__top__left,axiom,
! [A: $tType] :
( ( bounded_lattice_top @ A @ ( type2 @ A ) )
=> ! [X: A] :
( ( inf_inf @ A @ ( top_top @ A ) @ X )
= X ) ) ).
% inf_top_left
thf(fact_241_Int__UNIV__right,axiom,
! [A: $tType,A4: set @ A] :
( ( inf_inf @ ( set @ A ) @ A4 @ ( top_top @ ( set @ A ) ) )
= A4 ) ).
% Int_UNIV_right
thf(fact_242_Int__UNIV__left,axiom,
! [A: $tType,B3: set @ A] :
( ( inf_inf @ ( set @ A ) @ ( top_top @ ( set @ A ) ) @ B3 )
= B3 ) ).
% Int_UNIV_left
thf(fact_243_map__prod__o__convol,axiom,
! [D: $tType,B: $tType,C: $tType,E: $tType,A: $tType,H1: D > B,H2: E > C,F: A > D,G3: A > E] :
( ( comp @ ( product_prod @ D @ E ) @ ( product_prod @ B @ C ) @ A @ ( product_map_prod @ D @ B @ E @ C @ H1 @ H2 ) @ ( bNF_convol @ A @ D @ E @ F @ G3 ) )
= ( bNF_convol @ A @ B @ C @ ( comp @ D @ B @ A @ H1 @ F ) @ ( comp @ E @ C @ A @ H2 @ G3 ) ) ) ).
% map_prod_o_convol
thf(fact_244_snd__comp__apsnd,axiom,
! [C: $tType,B: $tType,A: $tType,F: B > C] :
( ( comp @ ( product_prod @ A @ C ) @ C @ ( product_prod @ A @ B ) @ ( product_snd @ A @ C ) @ ( product_apsnd @ B @ C @ A @ F ) )
= ( comp @ B @ C @ ( product_prod @ A @ B ) @ F @ ( product_snd @ A @ B ) ) ) ).
% snd_comp_apsnd
thf(fact_245_snd__map__prod,axiom,
! [B: $tType,A: $tType,D: $tType,C: $tType,F: C > B,G3: D > A,X: product_prod @ C @ D] :
( ( product_snd @ B @ A @ ( product_map_prod @ C @ B @ D @ A @ F @ G3 @ X ) )
= ( G3 @ ( product_snd @ C @ D @ X ) ) ) ).
% snd_map_prod
thf(fact_246_snd__apsnd,axiom,
! [A: $tType,C: $tType,B: $tType,F: C > A,X: product_prod @ B @ C] :
( ( product_snd @ B @ A @ ( product_apsnd @ C @ A @ B @ F @ X ) )
= ( F @ ( product_snd @ B @ C @ X ) ) ) ).
% snd_apsnd
thf(fact_247_apsnd__eq__conv,axiom,
! [B: $tType,C: $tType,A: $tType,F: C > B,X: product_prod @ A @ C,G3: C > B] :
( ( ( product_apsnd @ C @ B @ A @ F @ X )
= ( product_apsnd @ C @ B @ A @ G3 @ X ) )
= ( ( F @ ( product_snd @ A @ C @ X ) )
= ( G3 @ ( product_snd @ A @ C @ X ) ) ) ) ).
% apsnd_eq_conv
thf(fact_248_snd__comp__map__prod,axiom,
! [D: $tType,C: $tType,B: $tType,A: $tType,F: A > D,G3: B > C] :
( ( comp @ ( product_prod @ D @ C ) @ C @ ( product_prod @ A @ B ) @ ( product_snd @ D @ C ) @ ( product_map_prod @ A @ D @ B @ C @ F @ G3 ) )
= ( comp @ B @ C @ ( product_prod @ A @ B ) @ G3 @ ( product_snd @ A @ B ) ) ) ).
% snd_comp_map_prod
thf(fact_249_snd__convol_H,axiom,
! [B: $tType,A: $tType,C: $tType,F: C > B,G3: C > A,X: C] :
( ( product_snd @ B @ A @ ( bNF_convol @ C @ B @ A @ F @ G3 @ X ) )
= ( G3 @ X ) ) ).
% snd_convol'
thf(fact_250_snd__eqD,axiom,
! [B: $tType,A: $tType,X: B,Y: A,A2: A] :
( ( ( product_snd @ B @ A @ ( product_Pair @ B @ A @ X @ Y ) )
= A2 )
=> ( Y = A2 ) ) ).
% snd_eqD
thf(fact_251_snd__conv,axiom,
! [Aa: $tType,A: $tType,X1: Aa,X2: A] :
( ( product_snd @ Aa @ A @ ( product_Pair @ Aa @ A @ X1 @ X2 ) )
= X2 ) ).
% snd_conv
thf(fact_252_convol__def,axiom,
! [C: $tType,B: $tType,A: $tType] :
( ( bNF_convol @ A @ B @ C )
= ( ^ [F4: A > B,G4: A > C,A7: A] : ( product_Pair @ B @ C @ ( F4 @ A7 ) @ ( G4 @ A7 ) ) ) ) ).
% convol_def
thf(fact_253_sndI,axiom,
! [A: $tType,B: $tType,X: product_prod @ A @ B,Y: A,Z: B] :
( ( X
= ( product_Pair @ A @ B @ Y @ Z ) )
=> ( ( product_snd @ A @ B @ X )
= Z ) ) ).
% sndI
thf(fact_254_convol__o,axiom,
! [B: $tType,C: $tType,D: $tType,A: $tType,F: D > B,G3: D > C,H: A > D] :
( ( comp @ D @ ( product_prod @ B @ C ) @ A @ ( bNF_convol @ D @ B @ C @ F @ G3 ) @ H )
= ( bNF_convol @ A @ B @ C @ ( comp @ D @ B @ A @ F @ H ) @ ( comp @ D @ C @ A @ G3 @ H ) ) ) ).
% convol_o
thf(fact_255_range__snd,axiom,
! [B: $tType,A: $tType] :
( ( image @ ( product_prod @ B @ A ) @ A @ ( product_snd @ B @ A ) @ ( top_top @ ( set @ ( product_prod @ B @ A ) ) ) )
= ( top_top @ ( set @ A ) ) ) ).
% range_snd
%----Type constructors (21)
thf(tcon_HOL_Obool___Lattices_Obounded__lattice,axiom,
bounded_lattice @ $o @ ( type2 @ $o ) ).
thf(tcon_Set_Oset___Lattices_Obounded__lattice_1,axiom,
! [A8: $tType] : ( bounded_lattice @ ( set @ A8 ) @ ( type2 @ ( set @ A8 ) ) ) ).
thf(tcon_fun___Lattices_Obounded__lattice_2,axiom,
! [A8: $tType,A10: $tType] :
( ( bounded_lattice @ A10 @ ( type2 @ A10 ) )
=> ( bounded_lattice @ ( A8 > A10 ) @ ( type2 @ ( A8 > A10 ) ) ) ) ).
thf(tcon_fun___Lattices_Obounded__semilattice__inf__top,axiom,
! [A8: $tType,A10: $tType] :
( ( bounded_lattice @ A10 @ ( type2 @ A10 ) )
=> ( bounde1561333602nf_top @ ( A8 > A10 ) @ ( type2 @ ( A8 > A10 ) ) ) ) ).
thf(tcon_fun___Lattices_Obounded__lattice__top,axiom,
! [A8: $tType,A10: $tType] :
( ( bounded_lattice @ A10 @ ( type2 @ A10 ) )
=> ( bounded_lattice_top @ ( A8 > A10 ) @ ( type2 @ ( A8 > A10 ) ) ) ) ).
thf(tcon_fun___Lattices_Osemilattice__sup,axiom,
! [A8: $tType,A10: $tType] :
( ( semilattice_sup @ A10 @ ( type2 @ A10 ) )
=> ( semilattice_sup @ ( A8 > A10 ) @ ( type2 @ ( A8 > A10 ) ) ) ) ).
thf(tcon_fun___Lattices_Osemilattice__inf,axiom,
! [A8: $tType,A10: $tType] :
( ( semilattice_inf @ A10 @ ( type2 @ A10 ) )
=> ( semilattice_inf @ ( A8 > A10 ) @ ( type2 @ ( A8 > A10 ) ) ) ) ).
thf(tcon_fun___Lattices_Odistrib__lattice,axiom,
! [A8: $tType,A10: $tType] :
( ( distrib_lattice @ A10 @ ( type2 @ A10 ) )
=> ( distrib_lattice @ ( A8 > A10 ) @ ( type2 @ ( A8 > A10 ) ) ) ) ).
thf(tcon_fun___Lattices_Olattice,axiom,
! [A8: $tType,A10: $tType] :
( ( lattice @ A10 @ ( type2 @ A10 ) )
=> ( lattice @ ( A8 > A10 ) @ ( type2 @ ( A8 > A10 ) ) ) ) ).
thf(tcon_Set_Oset___Lattices_Obounded__semilattice__inf__top_3,axiom,
! [A8: $tType] : ( bounde1561333602nf_top @ ( set @ A8 ) @ ( type2 @ ( set @ A8 ) ) ) ).
thf(tcon_Set_Oset___Lattices_Obounded__lattice__top_4,axiom,
! [A8: $tType] : ( bounded_lattice_top @ ( set @ A8 ) @ ( type2 @ ( set @ A8 ) ) ) ).
thf(tcon_Set_Oset___Lattices_Osemilattice__sup_5,axiom,
! [A8: $tType] : ( semilattice_sup @ ( set @ A8 ) @ ( type2 @ ( set @ A8 ) ) ) ).
thf(tcon_Set_Oset___Lattices_Osemilattice__inf_6,axiom,
! [A8: $tType] : ( semilattice_inf @ ( set @ A8 ) @ ( type2 @ ( set @ A8 ) ) ) ).
thf(tcon_Set_Oset___Lattices_Odistrib__lattice_7,axiom,
! [A8: $tType] : ( distrib_lattice @ ( set @ A8 ) @ ( type2 @ ( set @ A8 ) ) ) ).
thf(tcon_Set_Oset___Lattices_Olattice_8,axiom,
! [A8: $tType] : ( lattice @ ( set @ A8 ) @ ( type2 @ ( set @ A8 ) ) ) ).
thf(tcon_HOL_Obool___Lattices_Obounded__semilattice__inf__top_9,axiom,
bounde1561333602nf_top @ $o @ ( type2 @ $o ) ).
thf(tcon_HOL_Obool___Lattices_Obounded__lattice__top_10,axiom,
bounded_lattice_top @ $o @ ( type2 @ $o ) ).
thf(tcon_HOL_Obool___Lattices_Osemilattice__sup_11,axiom,
semilattice_sup @ $o @ ( type2 @ $o ) ).
thf(tcon_HOL_Obool___Lattices_Osemilattice__inf_12,axiom,
semilattice_inf @ $o @ ( type2 @ $o ) ).
thf(tcon_HOL_Obool___Lattices_Odistrib__lattice_13,axiom,
distrib_lattice @ $o @ ( type2 @ $o ) ).
thf(tcon_HOL_Obool___Lattices_Olattice_14,axiom,
lattice @ $o @ ( type2 @ $o ) ).
%----Helper facts (3)
thf(help_If_3_1_T,axiom,
! [P: $o] :
( ( P = $true )
| ( P = $false ) ) ).
thf(help_If_2_1_T,axiom,
! [A: $tType,X: A,Y: A] :
( ( if @ A @ $false @ X @ Y )
= Y ) ).
thf(help_If_1_1_T,axiom,
! [A: $tType,X: A,Y: A] :
( ( if @ A @ $true @ X @ Y )
= X ) ).
%----Conjectures (1)
thf(conj_0,conjecture,
member @ t @ n @ ( vimage @ t @ ( sum_sum @ t @ dtree ) @ ( sum_Inl @ t @ dtree ) @ ( cont @ ( parall1899940088le_par @ ( product_Pair @ dtree @ dtree @ tr1a @ ( parall1899940088le_par @ ( product_Pair @ dtree @ dtree @ tr2a @ tr3a ) ) ) ) ) ) ).
%------------------------------------------------------------------------------